DataGridの合計について (ID:119018)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 下記のように行ってみました。 Dim strAA As String Dim intBB As Integer Dim intCC, intDD As Integer intCC = recTEST.RecordCount For intDD = 1 To intCC Do Until recTEST.EOF strAA = recTEST.Fields("suuryou") intBB = strAA + intBB intDD = intDD + 1 recTEST.MoveNext Loop Next Text1.Text = intBB 自信が無いのですが・・・思う通りの結果を得る事が出来たので『解決』とさせて 頂きます。 ありがとうございました。