请教窗口中的表 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教窗口中的表

共有3650人关注过本帖树形打印复制链接主题：请教窗口中的表

hbhb

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

加好友

发短信

等级：狐神帖子：5054 积分：13025 威望：0 精华：0 注册：2014/5/15 21:34:00

请教窗口中的表 发帖心情

Post By：2014/12/28 21:18:00 [只看该作者]

甜大师：好！

请问窗口中的表要绑定到某表后单独绘制，sql 动态绑定行不行？

如：目录树筛选某表后，符合条件的行单独绘制背景，这样的功能如何实现？

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/12/28 21:23:00 [只看该作者]

设置Drawcell事件，符合条件，就设置样式

http://www.foxtable.com/help/topics/2628.htm

hbhb

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

加好友

发短信

等级：狐神帖子：5054 积分：13025 威望：0 精华：0 注册：2014/5/15 21:34:00

Post By：2014/12/28 22:09:00 [只看该作者]

大师：请问下面的代码错在哪里？

Dim tb12 As WinForm.Table = Forms("main").Controls("Table12")

tb12.Table.DataTable.AddUserStyle("tv2",Color.Red, Color.White)

Dim zf As String

Dim tv2 As WinForm.TreeView = e.Form.Controls("TreeView2")

zf = tv2.SelectedNode.Name

If e.Row(e.Col) = zf Then

e.Style = "tv2"

End If

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/12/28 22:12:00 [只看该作者]

If e.Form IsNot Nothing Then
    e.Table.DataTable.AddUserStyle("tv2",Color.Red, Color.White)

    Dim zf As String

    Dim tv2 As WinForm.TreeView = e.Form.Controls("TreeView2")

    zf = tv2.SelectedNode.Text

    If e.Row(e.Col.name) = zf Then
        e.Style = "tv2"
    End If
End If

hbhb

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

加好友

发短信

等级：狐神帖子：5054 积分：13025 威望：0 精华：0 注册：2014/5/15 21:34:00

Post By：2014/12/28 22:20:00 [只看该作者]

还是有错误，调用目标异常！

请问以上的目录树是否先要生成？

hbhb

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

加好友

发短信

等级：狐神帖子：5054 积分：13025 威望：0 精华：0 注册：2014/5/15 21:34:00

Post By：2014/12/28 22:25:00 [只看该作者]

.NET Framework 版本：2.0.50727.5485

Foxtable 版本：2014.11.11.1

错误所在事件：表，Main_Table12，DrawCell

详细错误信息：

调用的目标发生了异常。

未将对象引用设置到对象的实例。

zf = tv2.SelectedNode.Text

这句有误？

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/12/28 22:42:00 [只看该作者]

If e.Form IsNot Nothing Then
    e.Table.DataTable.AddUserStyle("tv2",Color.Red, Color.White)

    Dim zf As String

    Dim tv2 As WinForm.TreeView = e.Form.Controls("TreeView2")
    If tv2.SelectedNode IsNot Nothing
        zf = tv2.SelectedNode.Text

        If e.Row(e.Col.name) = zf Then
            e.Style = "tv2"
        End If
    End If
End If