专家坐堂-双击节点加载不了数据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=171351)

--  作者：lianghanyu
--  发布时间：2021/8/27 9:32:00
--  双击节点加载不了数据

此主题相关图片如下：2.gif

如图片：

此主题相关图片如下：1.png

--  作者：有点蓝
--  发布时间：2021/8/27 9:39:00
--
贴出代码看看

可能是数据问题

--  作者：lianghanyu
--  发布时间：2021/8/27 9:41:00
--

Dim Filter As String

If e.node.Text = "加载所有数据" Then
Filter = "[状态] <> \'关闭\'"
Else
Dim dr As DataRow = e.Node.DataRow \'获取生成此节点的DataRow
Select Case e.Node.Level
Case 0
Filter = "[业务] = \'" & dr("业务") & "\'And [状态] <> \'关闭\'"
\'MessageBox.Show(Filter)
Case 1
Filter = "[业务] = \'" & dr("业务") & "\' And [客户代号] = \'" & dr("客户代号") & "\' And [状态] <> \'关闭\'"
\'MessageBox.Show(Filter)

End Select
End If
DataTables("项目总表").LoadOrder = "建档日期 Desc"
DataTables("项目总表").LoadFilter = Filter
DataTables("项目总表").Load()

--  作者：有点蓝
--  发布时间：2021/8/27 9:43:00
--

试试
DataTables("项目总表").LoadOrder = "建档日期 Desc"
DataTables("项目总表").LoadTop = nothing
DataTables("项目总表").LoadFilter = Filter
DataTables("项目总表").Load()

--  作者：lianghanyu
--  发布时间：2021/8/27 10:02:00
--
找到原因了，是因为 “业务” 填的格式不统一，有的前边有空格，有的是大小写不一样