Dim Filter As String = "录入者='" & _Username & "'"
Dim dr2 As DataRow
dr2 = DataTables("Users").Find("[Group] = '" & _UserGroup & "'")
Dim s As String
If dr2 IsNot Nothing Then
s = dr2("Xjry")
If s > "" Then
Filter = Filter & " or UserID in (" & s.Replace("，", ",") & ")"
End If
End If
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "SELECK DISTINCT 产品,客户 From {订单} where " & Filter
msgbox("SELECK DISTINCT 产品,客户 From {订单} where " & Filter )
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt, "产品|客户")
trv.Nodes.Insert("加载所有数据", 0)
DataTables("订单").LoadFilter = Filter '
DataTables("订单").Load()
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("产品") & "'"
Case 1
Filter = "[产品] = '" & dr("产品") & "' And [客户] = '" & dr("客户") & "'"
End Select
End If
DataTables("订单").LoadFilter = Filter
DataTables("订单").Load()
.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2022.5.13.2
错误所在事件：
详细错误信息：
标准表达式中数据类型不匹配。
.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2022.5.13.2
错误所在事件：窗口,加载二,AfterLoad
详细错误信息：
未将对象引用设置到对象的实例。
此主题相关图片如下：用户1.jpg
加好友 
发短信
Post By：2022/5/20 14:34:00 [只看该作者]
