不是空值造成的,加载所有数据,必须独立出来,例如: Dim Filter As String If e.Node.Text = "加载所有数据" Then Filter = "" Else Dim Value() As String Value = e.Node.FullPath.Split("\") Select Case e.Node.Level Case 0 Filter ="[产品] = '" & Value(0) & "'" Case 1 Filter ="[产品] = '" & Value(0) & "' And [客户] = '" & Value(1) & "'" End Select End If DataTables("订单").LoadFilter = Filter DataTables("订单").Load()
|