主题：关于 RecordGrid 的用法

 1、

Dim rgd As object = Forms("窗口1").Controls("RecordGrid1").basecontrol

rgd.styles.Normal.backcolor = color.red
rgd.cols(1).textalign = 5

2、

Dim brgd = e.Form.Controls("RecordGrid1").basecontrol
Dim rng As C1.Win.C1FlexGrid.CellRange = brgd.GetCellRange(3, 1, 3, 1)
Dim cs1 As C1.Win.C1FlexGrid.CellStyle = brgd.Styles.Add("样式1")
cs1.TextAlign = 6
rng.style = cs1

3、本来就是继承你表格的控件，不能自己自定义控件。

1、boolean无法对齐，这个没办法。

2、

Dim brgd = e.Form.Controls("RecordGrid1").basecontrol
For i As Integer = 0 To brgd.Rows.count-1
    Dim rng As C1.Win.C1FlexGrid.CellRange = brgd.GetCellRange(i, 1, i, 1)
    Dim cs1 As C1.Win.C1FlexGrid.CellStyle = brgd.Styles.Add("样式" & i)
    Dim cs As C1.Win.C1FlexGrid.CellStyle = rng.style
    If cs.datatype.ToString = Gettype(String).Tostring Then
        cs1.TextAlign = 1
    ElseIf cs.datatype.ToString = Gettype(Boolean).Tostring Then
        cs1.TextAlign = 7
    ElseIf cs.datatype.ToString = Gettype(Date).Tostring Then
        cs1.TextAlign = 7
    Else
        cs1.TextAlign = 7
    End If
    rng.style = cs1
Next

测试了一下，9楼的代码有效。

Public Sub TblBase_OwnerDrawCell(ByVal sender As Object, ByVal e As C1.Win.C1FlexGrid.OwnerDrawCellEventArgs)
    If e.Col >= sender.Cols.Fixed
        e.Style.BackColor = Color.red
    End If
End Sub

你在窗口的AfterLoad事件，写下面的代码即可

Dim brgd As C1.Win.C1FlexGrid.C1FlexGrid  = e.Form.Controls("RecordGrid1").basecontrol
AddHandler brgd.OwnerDrawCell, AddressOf TblBase_OwnerDrawCell
brgd.refresh