输入以下代码，双击节点，出现至少一个参数未被指定，怎么处理
Dim Filter As String = ""
If e.Node.Name <> "加载所有行" Then '要用Name属性,不能用Text属性
Dim Year As String = e.Node.DataRow("位置1")
Dim Month As String = e.Node.DataRow("位置2")
Dim Product As String = e.Node.DataRow("名称")
Select Case e.Node.Level
Case 0
Filter = "Year('位置1') = " & Year
Case 1
Filter = "Year('位置1') = " & Year & " And Month('位置2') = " & Month
Case 2
Filter = "Year('位置1') = " & Year & " And Month('名称') = " & Month & " And 名称 = '" & Product & "'"
End Select
End If
DataTables("其它算量").LoadFilter = Filter
DataTables("其它算量").Load()
加好友 
发短信
Post By：2024/7/23 16:54:00 [显示全部帖子]
