安達利機車行

版本(.net framework 2.0)
' 如果要將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
' 設定該欄位footer bar的文字放列位置(罝中、罝左、罝右...)
MyTrueDBGrid.Splits(0).DisplayColumns("my_column").FooterStyle.HorizontalAlignment = C1.Win.C1TrueDBGrid.AlignHorzEnum.Near


' 設定欄位抬頭(cation)的欄位高度
MyTrueDBGrid.Splits(0).ColumnCaptionHeight = 25
' 設定欄位寬度和欄位名稱長度一樣長
MyTrueDBGrid.Splits(0).DisplayColumns("my_column").AutoSize()
' 凍結欄位(拉Scroll Bar時不會動)
MyTrueDBGrid.Splits(0).DisplayColumns("my_column").Frozen = True
' 設定欄位背影顏色
MyTrueDBGrid.Splits(0).DisplayColumns("my_column").Style.BackColor = Color.LightYellow
' 設定欄任字體顏色
MyTrueDBGrid.Splits(0).DisplayColumns("my_column").Style.ForeColor = Color.Blue