＞魔界の仮面弁士さま

返信をいただきありがとうございます。

ご教授いただいたにも関わらずうまくいかず困っていたところ、
更なるご教授ありがとうございます。

教えていただいたDataTable を直接割り当てる方法を試しています。


> DGV.Columns("選択").DataPropertyName = "選択"
> DGV.Columns("金額").DataPropertyName = "金額"
 
こちらはDecimalに変更しました。
 Dim i As Decimal = rdr1.Item("AMOUNT")

> dt.Rows.Add(False, i )　'選択列にはデフォルトでFalseを入れる。
Falseは選択列、iは金額列になります。

この実行結果でUpdateSummaryLabel()が動くと
SumObject = dt.Compute("SUM(金額)", "選択=TRUE")
の部分に
「DataExceptionはハンドルされませんでした。
 集約関数Sum()および型：Stringの使用が無効です。」
とエラーが出てしまいます。

下記にプログラムを載せますのでご確認お願いいたします。