cmd.CommandText = "SELECT DISTINCT 产品,客户,Year(日期) As 年 From {订单}"
......
nd1 = tr.nodes.add("a3","按日期")
Dim Values2() As String = dt.GetComboListString("年").split("|")
For k As Integer = 0 To Values.Length - 1
nd1.nodes.add("0101",Values2(k))
Next
....
如果是日期列,用上述公式可否加载目录树
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 1
Filter ="[产品] = '" & Value(1) & "' Or [客户] = '" & Value(1) & "'" Or "Year(日期) = " & Value(1)
'Case 1
'Filter ="[客户] = '" & Value(2) & "'"
End Select
End If
DataTables("订单").LoadFilter = Filter
DataTables("订单").Load()
用上述加载订单,不对啊