专家坐堂-加载所有数据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=67687)

--  作者：fanjq8686
--  发布时间：2015/4/29 9:54:00
--  加载所有数据

请教：

\'--------------树目录筛选--------------
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Forms("综合查询窗口").Controls("Label1").Text = "业务受理情况"

\'三级目录
NodeLevel0 = "产品类别"
NodeLevel1 = "产品分类"
NodeLevel2 = ""

\'查询的日期字段
DateSt = "受理日期"

Dim TreeSt As String
If NodeLevel2 = "" Then
    If NodeLevel1 = "" Then
        TreeSt = NodeLevel0
    Else
        TreeSt = NodeLevel0 & "|" & NodeLevel1
    End If
Else
    TreeSt = NodeLevel0 & "|" & NodeLevel1 & "|" & NodeLevel2
End If

trv.BuildTree("业务流程表", TreeSt)
trv.Nodes.Insert("加载所有数据","加载所有数据",0)

\'MessageBox.Show("节点名称: " & e.node.NAME)

Tables("业务流程表").SetColVisibleWidth("受理日期|90|报告编号|160|任务来源|80|检验类别|50|检验分类|110|产品类别|80|产品分类|110|客户名称|250|样品名称|150|样品型号规格|100|样品数量|50|")
Tables("业务流程表").Filter = ""

NodeMouseDoubleClick

\'--------------树目录筛选--------------
Dim CountStr As String
Dim Filter As String
Dim Filter0 As String
Dim Filter1 As String
Dim Filter2 As String

Dim dr As DataRow = e.Node.DataRow \'获取生成此节点的行
If NodeLevel2 = "" Then
    Filter2 = ""
Else
    Filter2 = " And [" & NodeLevel2 & "] = \'" & dr(NodeLevel2) & "\'"
End If
If NodeLevel1 = "" Then
    Filter1 = ""
Else
    Filter1 = " And [" & NodeLevel1 & "] = \'" & dr(NodeLevel1) & "\'"
End If
Filter0 = " AND [" & NodeLevel0 & "] = \'" & dr(NodeLevel0) & "\'"

Dim cnt As Integer
\'MessageBox.Show(NodeLevel0)
If e.node.TEXT = "加载所有数据" Then
    Filter = ""
Else
    Select Case e.Node.Level
        Case 0
            Filter = FilterDate & Filter0 & "And " & DateSt & " Is NOT Null"
            CountStr = "Count([" & NodeLevel0 & "])"
        Case 1
            Filter = FilterDate & Filter0 & Filter1 & "And " & DateSt & " Is NOT Null"
            CountStr = "Count([" & NodeLevel1 & "])"
        Case 2
            Filter = FilterDate & Filter0 & Filter1 & Filter2 & "And " & DateSt & " Is NOT Null"
            CountStr = "Count([" & NodeLevel2 & "])"
    End Select
End If
Tables("业务流程表").Filter = Filter
cnt = DataTables("业务流程表").Compute(CountStr,Filter)
e.Form.Controls("Label4").TEXT = "产品类别: " & e.node.TEXT
e.Form.Controls("Label5").TEXT = "项目总数: " & cnt
e.Form.Controls("Label6").TEXT = "时间范围: " & dt1 & " 至 " & dt2
\'MessageBox.Show(cnt)

双击"加载所有数据"，出现：

错误所在事件：窗口,综合查询窗口,TreeView1,NodeMouseDoubleClick
详细错误信息：
未将对象引用设置到对象的实例。

--  作者：狐狸爸爸
--  发布时间：2015/4/29 9:58:00
--

加载所有数据是你用代码插入的节点，没有对应的DataRow，所以下面的代码一定出错：

Dim dr As DataRow = e.Node.DataRow \'获取生成此节点的行
If NodeLevel2 = "" Then
    Filter2 = ""
Else
    Filter2 = " And [" & NodeLevel2 & "] = \'" & dr(NodeLevel2) & "\'"
End If
If NodeLevel1 = "" Then
    Filter1 = ""
Else
    Filter1 = " And [" & NodeLevel1 & "] = \'" & dr(NodeLevel1) & "\'"
End If
Filter0 = " AND [" & NodeLevel0 & "] = \'" & dr(NodeLevel0) & "\'"

明白了原因，你可以自己调整代码结构。

--  作者：fanjq8686
--  发布时间：2015/4/29 10:07:00
--
老师好！因为上周刚买的软件，是新手，能麻烦告诉我应如何调整吗？谢谢！

--  作者：狐狸爸爸
--  发布时间：2015/4/29 10:44:00
--

这样就能避免错误了：

\'--------------树目录筛选--------------
Dim CountStr As String
Dim Filter As String
Dim Filter0 As String
Dim Filter1 As String
Dim Filter2 As String
If e.node.Level = 0 AndAlso e.node.Text = "加载所有数据" Then
    filter = ""
Else
    Dim dr As DataRow = e.Node.DataRow \'获取生成此节点的行
    If NodeLevel2 = "" Then
        Filter2 = ""
    Else
        Filter2 = " And [" & NodeLevel2 & "] = \'" & dr(NodeLevel2) & "\'"
    End If
    If NodeLevel1 = "" Then
        Filter1 = ""
    Else
        Filter1 = " And [" & NodeLevel1 & "] = \'" & dr(NodeLevel1) & "\'"
    End If
    Filter0 = " AND [" & NodeLevel0 & "] = \'" & dr(NodeLevel0) & "\'"
    Dim cnt As Integer
    Select Case e.Node.Level
        Case 0
            Filter = FilterDate & Filter0 & "And " & DateSt & " Is NOT Null"
            CountStr = "Count([" & NodeLevel0 & "])"
        Case 1
            Filter = FilterDate & Filter0 & Filter1 & "And " & DateSt & " Is NOT Null"
            CountStr = "Count([" & NodeLevel1 & "])"
        Case 2
            Filter = FilterDate & Filter0 & Filter1 & Filter2 & "And " & DateSt & " Is NOT Null"
            CountStr = "Count([" & NodeLevel2 & "])"
    End Select
End If
Tables("业务流程表").Filter = Filter
cnt = DataTables("业务流程表").Compute(CountStr,Filter)
e.Form.Controls("Label4").TEXT = "产品类别: " & e.node.TEXT
e.Form.Controls("Label5").TEXT = "项目总数: " & cnt
e.Form.Controls("Label6").TEXT = "时间范围: " & dt1 & " 至 " & dt2

--  作者：fanjq8686
--  发布时间：2015/4/29 11:04:00
--
谢谢老师！问题解决了。