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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教窗口中的表  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=62267)

--  作者：hbhb
--  发布时间：2014/12/28 21:18:00
--  请教窗口中的表
甜大师：好！
请问窗口中的表要绑定到某表后单独绘制，sql 动态绑定行不行？

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

--  作者：有点甜
--  发布时间：2014/12/28 21:23:00
--

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

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

--  作者：hbhb
--  发布时间：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

--  作者：有点甜
--  发布时间：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
--  发布时间：2014/12/28 22:20:00
--
还是有错误，调用目标异常！
请问以上的目录树是否先要生成？

--  作者：hbhb
--  发布时间：2014/12/28 22:25:00
--

.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2014.11.11.1
错误所在事件：表，Main_Table12，DrawCell
详细错误信息：
调用的目标发生了异常。
未将对象引用设置到对象的实例。

zf = tv2.SelectedNode.Text
这句有误？

--  作者：有点甜
--  发布时间：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

--  作者：hbhb
--  发布时间：2014/12/28 22:58:00
--
谢谢！我已经改用全局变量传递了。再请问
If e.Row(“薪金”) = zf Then
            e.Style = "tv2"
        End If
薪金列不显示为何事件行不着色？

--  作者：有点甜
--  发布时间：2014/12/28 23:08:00
--

zf赋值之后，执行Tables().Refresh

--  作者：hbhb
--  发布时间：2014/12/28 23:48:00
--
就不绘制，就像死了一样的？不知什么原因？