' 如果要將Grid的資料小計放到Footer Bar時…
Dim total_count As Integer =0
For i As Integer = 0 To Me.MyTrueDBGrid.Splits(0).Rows.Count - 1
total_count += CInt(MyTrueDBGrid(i, "my_column").ToString)
Next
' 設定該欄位footer bar的文字內容(有時侯用來統計小計)
MyTrueDBGrid.Columns("my_column").FooterText = total_count