主题：[求助]请问如何给这个表增加选中行Styles("CurrentRow")效果

Tables("表A").DataTable.SysStyles("CurrentRow").BackColor = Color.red
Tables("表A").ListMode = True

http://www.foxtable.com/webhelp/scr/1577.htm

Dim tb As C1FlexGrid.C1FlexGrid = Tables(e.Form.Name & "_Table1").Grid

With tb
        .Tree.Column = 1
        .Tree.LineStyle = Drawing2D.DashStyle.Dash
        .Tree.Style = C1FlexGrid.TreeStyleFlags.CompleteLeaf
        .Tree.NodeImageCollapsed = GetImage("0.png")
        .Tree.NodeImageExpanded = GetImage("1.png")
End With

哥不是系统默认的表，是树模式的

一样吧？你设置了不行？只有数据行才有这个样式的。

具体实例发上来看看。

例子就是飞的一个小作品 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=21508&skin=0

选中的时候 希望能有ListMode效果

全局代码

Public Sub TblBase_OwnerDrawCell(ByVal sender As Object, ByVal e As C1.Win.C1FlexGrid.OwnerDrawCellEventArgs) Handles TblBase.OwnerDrawCell
If e.Col = 0 Then
    If e.Row <> 0 Then e.Text = e.Row
End If
If e.Col >= sender.Cols.Fixed
    If e.Row = sender.Selection.r1 Then
        e.Style.BackColor = Color.SteelBlue
    Else
        e.Style.BackColor = Color.White
    End If
End If
End Sub

我还以为一句代码能实现呢……感觉搞大了，因为是窗口表 我实际使用是没写全局代码的，只能用这种方式实现么？

Styles("CurrentRow").BackColor = Color.red

全局事件

Public Sub TblBase_OwnerDrawCell(ByVal sender As Object, ByVal e As C1.Win.C1FlexGrid.OwnerDrawCellEventArgs) Handles TblBase.OwnerDrawCell
If e.Col >= sender.Cols.Fixed
    If e.Row = sender.Selection.r1 Then
        e.Style.BackColor = Color.SteelBlue
    Else
        e.Style.BackColor = Color.White
    End If
End If
End Sub

绑定事件

AddHandler Tables(e.Form.Name & "_Table1").Grid.OwnerDrawCell, AddressOf TblBase_OwnerDrawCell

大师，今天又遇到这个例子的问题，不知道如何添加这个表的checkbox列在cols(0)位置，并且实现遍历获取checked = true的行

麻烦帮忙看看 谢谢