我发现不能添加附件,所以只有文字描述了:
在设置加载树的时候:
点击“所有订单”
出现的错误为:未将对象引用设置到对象的实例。
而点击其他节点是有效的。
代码如下:
Dim dr As DataRow = e.Node.DataRow '获取生成此节点的行
Dim Filter As String
Dim Year As Integer = dr("年")
Dim Month As Integer = dr("月")
Dim PL As String = dr("分类2")
If e.node.Text = "所有订单" Then
Filter =" "
Else
Select Case e.Node.Level
Case 0
Filter ="Year(创建时间) = " & Year
Case 1
Filter ="Year(创建时间) = " & Year & " And 分类2 = '" & PL & "'"
End Select
End If
DataTables("订单信息").LoadFilter = Filter
DataTables("订单信息").Load()
这个问题第一次碰到!
[此贴子已经被作者于2019/4/9 10:35:04编辑过]