[求助]请问如何给这个表增加选中行Styles("CurrentRow")效果 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]请问如何给这个表增加选中行Styles("CurrentRow")效果

共有2657人关注过本帖树形打印复制链接主题：[求助]请问如何给这个表增加选中行Styles("CurrentRow")效果

jiskin

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：714 积分：5213 威望：0 精华：0 注册：2012/4/13 13:10:00

[求助]请问如何给这个表增加选中行Styles("CurrentRow")效果 发帖心情

Post By：2017/3/16 11:13:00 [显示全部帖子]

如题

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

怎么增加一个选中行的效果，感谢

jiskin

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：714 积分：5213 威望：0 精华：0 注册：2012/4/13 13:10:00

Post By：2017/3/16 11:24:00 [显示全部帖子]

以下是引用有点色在2017/3/16 11:18:00的发言：

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

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

jiskin

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：714 积分：5213 威望：0 精华：0 注册：2012/4/13 13:10:00

Post By：2017/3/16 12:23:00 [显示全部帖子]

以下是引用有点色在2017/3/16 12:01:00的发言：

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

具体实例发上来看看。

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

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

jiskin

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：714 积分：5213 威望：0 精华：0 注册：2012/4/13 13:10:00

Post By：2017/3/16 13:23:00 [显示全部帖子]

以下是引用有点色在2017/3/16 13:06:00的发言：

全局代码

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

jiskin

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：714 积分：5213 威望：0 精华：0 注册：2012/4/13 13:10:00

Post By：2017/4/1 19:05:00 [显示全部帖子]

以下是引用有点色在2017/3/16 14:59:00的发言：

全局事件

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的行

麻烦帮忙看看谢谢