自分を呼び出すプログラムの書き方

質問

フォルダ検索のように
計算式１＝計算式２＋値１
計算式２＝値２＋値３＋値４
・・・
となるデータの計算結果を算出したいと思っています。
計算式を使用する計算式はレベル+1として
複雑さを数えてあります。

DBから計算式１を検索すると
計算式２と値１のキーが取れます。
すべての値について配列にしたいのですが
途中で前にセットした値が書き換えられてしまいます。
どうしたらよいでしょうか。

Public Class keisan
Public iCalcVId As Integer '計算値ID
Public iCalcFId As Integer '計算式ID
Public iLevel As Integer 'レベル
Public strsign As String '符号
Public iRefCalcFid As Integer '参照計算式ID
Public iSensorId As Integer '値
End Class

Public Class Groupkeisan : Inherits System.Collections.Generic.Dictionary(Of String, keisan)
Public Shadows Sub Add(ByVal Item As keisan)
MyBase.Add(Item.iCalcVId, Item)
End Sub
End Class

Private Sub AAAA()

Dim strSQL As String 'SQL
Dim dtCF As DataTable '計算式
Dim strMSG As String 'メッセージ
Dim DBConnection As New DBConnection 'コネクション

Dim keisandata As New Groupkeisan

'請求先IDから最初の計算式IDを検索
strSQL = "SELECT "
strSQL &= "計算式ID "
strSQL &= ",計算式レベル "
strSQL &= "FROM 計算式"
　　strSQL &= "Where 最高レベル"
strSQL &= " Order by 計算式レベル DESC "

strMSG = ""

dtCF = DBConnection.GetDataTable(strSQL, TblCalcFormula, strMSG)

'最高レベルの計算式は1つだけある
If dtCF.Rows.Count = 1 Then
'計算値を検索
Call BBBB(iDemand, dtCF.Rows(0)("計算式ID"), keisandata)
Else
Exit Sub
End If

End Sub

Private Sub BBBB(ByRef iCalcId As Integer, ByRef keisandata As Groupkeisan)

Dim strSQL As String 'SQL
Dim dtCV As DataTable '計算値
Dim strMSG As String 'メッセージ
Dim DBConnection As New DBConnection 'コネクション
Dim keisandata As New keisan

'引数の計算式IDから計算値を検索
strSQL = XXXXXXXXX

strMSG = ""

dtCV = DBConnection.GetDataTable(strSQL, TblCalcValue, strMSG)

For Each Row As DataRow In dtCV.Rows
'計算値ID
addkeisandata.iCalcVId = Row("計算値ID")
'計算式ID
addkeisandata.iCalcFId = iCalcId
'レベル
addkeisandata.iLevel = Row("計算式レベル")
'符号
addkeisandata.strsign = Row("符号")
'計算式ID
If Row("参照計算式ID").ToString = "" Then
addkeisandata.iSensorId = Row("値")
Else
addkeisandata.iRefCalcFid = Row("参照計算式ID")

Call BBBB( Row("参照計算式ID"), keisandata)
End If

'追加
keisandata.Add(addkeisandata)
Next

End Sub

回答No.2

うぃず（@Wizard_Zero） · ベストアンサー

やはりざっと読んだだけでは的外れな回答しか出来ませんね・・・。反省。。。

コードを読み直してみたら、ここかな？と思う箇所を見つけたので懲りずに回答出します。

BBBBの一部を抜粋します。

' 質問では Dim keisandata As New keisan となっていますがaddkeisandataの書き間違えとして見てよいですか？
Dim addkeisandata As New keisan
…
　　For Each Row As DataRow In dtCV.Rows
　　　　…
　　　　addkeisandata.iCalcVId = Row("計算値ID")
　　　　…
　　　　keisandata.Add(addkeisandata)
　　Next

この状態でループをまわすと、addkeisandataは「ひとつのインスタンス」を何度も使いまわすことになります。つまり、For Eachが回るたびに「同じインスタンスへ新しい値が設定」されてしまいます。結果、コレクションには同じインスタンスが並びます。

変数自体は使いまわし可能ですので、For Eachが回るたびにインスタンスを作成してみてください。

Dim addkeisandata As keisan
…
　　For Each Row As DataRow In dtCV.Rows
　　　　addkeisandata = New keisan ' ここでインスタンスを生成
　　　　…
　　　　addkeisandata.iCalcVId = Row("計算値ID")
　　　　…
　　　　keisandata.Add(addkeisandata)
　　Next

もうひとつ、BBBBの引数ですが、ByRefで受け取る必要はないと思います。クラスであればByValで受け取ってもインスタンスを引き継ぎます。iCalcIdもBBBB内での変更を呼び出し元に返す必要がなければByValにしておいたほうが安全です。

お礼

本当にありがとうございます。
何がわからないかもわからないくらい
困っていたので本当に質問が意味不明でした。

教えて頂いた内容を元に
プログラムを見直してみます。

回答No.1

うぃず（@Wizard_Zero）

コードはざっと読んだだけですが再帰（リカーシブ）で各計算式を計算させればよいと思います。ひとつのメソッドの中で繰り返し処理を行おうとすれば、当然データは書き換えられてしまいます。

まず、ひとつの式を計算するメソッド（例：Calc）を用意。
Calcは計算式からひとつの解を戻り値として返すとします。
Calcの中で別の式から解を得る必要（計算式の項が別の計算式を参照している場合）があれば、Calcを再帰呼び出し。

Function Calc(計算式のキー) As Integer
' 計算式のキーから、算術項を取得（複数あり）
' 算術項を順番に計算するループ
For ...
　' もし、算術項に別の計算式があれば再帰
Dim answer As Integer = Calc(別の計算式)
Next ...

Return (計算式のキーから得られた解)
End Function

注意点は、再帰処理している中で計算中の計算式が出てきた場合に無限ループに突入してしまうこと。理論上は有り得ないと思いますが、データ上は有り得てしまうので、処理中の計算式をどこかに一覧で管理する必要があるかもしれません。
X = Y + 1
Y = X - 1
この連立方程式は（解が出せないという意味で）成り立ちませんが、データとして存在することは可能です。

補足

計算はせずに計算で使う式を１つのディクショナリに
まとめています。
計算式が計算式を含んでいたとき
その計算式を探すためBBBBを呼び出します。
ディクショナリに追加した後
戻ってきておおもとの計算式を配列に追加すると
再帰したときの値が壊れてしまうみたいです。

BBBBのでBBBBを呼ぶ時の引数に
追加したディクショナリを投げるのが
おかしいのかとも思っています。