はなはなはなさん。ありがとうございます。
はい、変化無しというのはエラーは出ないのですが、Length=0のままです。
すみません、できるだけわかりやすく書いてみます。
動く方のプログラムは下記です。(途中省略してあります)
Dim findkey(1) , zaiko(4), code(j), lot(j) As Object
da.FillSchema(ds, SchemaType.Source, "Atable")
da.Fill(ds, "Atable")
For j = 0 To 4
findkey(0) = code(j) 'コード ←コードとロットはテキストボックスから入力された値です
findkey(1) = lot(j) 'ロット
finddr = ds.Tables("Atable").Rows.Find(findkey)
If finddr Is Nothing Then
Else
finddr(3) = finddr(3) + zaiko(j) ←在庫数はテキストボックスから入力された値です
End If
next
↑この状態で希望通り動きます。（検索結果から計算します）
code(j),lot(j),zaiko(j)は0から4まで配列で値を入れてあります。
テキストボックスから入力されたコードとロットの値でテーブルを検索し、一致するものがあれば在庫数データを足していくというものです。
---------------------------------------------
動かないものはこちらです。変数の定義省略
（最初の式に戻してあります）
da.FillSchema(ds, SchemaType.Source, "Btable")
da.Fill(ds, "Btable")
cmd.CommandText = "SELECT Code FROM Ctable WHERE aCode='" & bCode & "'"
cn.Open()
dread = cmd.ExecuteReader()
If dread.Read <> False Then
findkey1 = dread(0) ←Ctableのコード一つの値が希望通り入っています
Else
findkey1 = ""
End If
cn.Close()
finddr1 = ds.Tables("Dtable").Rows.Find(findkey1) 一つのコードでDtableを検索します。
↑インデックスを付加するキーには 2 値が必要ですが、1 値を取得しました。というエラーが出ます
If finddr1 Is Nothing Then
Else
finddr1(2) = finddr1(2) + 100
↑演算子＋は型system.data.datarow及びintegerに対して定義されていませんというエラーが出て実行できません。
End If
Ctableからあるコードを元に検索をしてその製品についている別のコードを出し、その出したコードを元にDtableを検索して一致するデータがあればデータを足していくというものです。
わからないところがありましたら教えてください。
同じような感じだと思うのですが、なぜ動かないのかわかりません。
よろしくお願いいたします。
