Dim tv As WinForm.TreeView
tv =e.Form.Controls("TreeView1")
tv.BuildTree("订单", "日期")

用日期列做目录树 怎么去掉时间部分?

SQLCommand

Dim tv As WinForm.TreeView
tv =e.Form.Controls("TreeView1")
Dim cm As WinForm.CheckedComboBox = e.Form.Controls("CheckedComboBox1")
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "SELECT * From {订单}"
dt = cmd.ExecuteReader()
Dim str As String = cm.Value
Dim x As String
Dim Values() As String
Values = Str.split(",")
For Index As Integer = 0 To Values.Length - 1
    For Each cl As DataCol In dt.DataCols
        If Values(Index)= cl.Name  Then
            x= x & cl.Name & "|"
        End If
    Next
Next
tv.Nodes.Clear
tv.BuildTree("订单", x)

  我动态生成的,怎么修改这个呢?

Dim Filter As String
Dim nms() As String =Kfc.Split(",")
For Each cl As Col In Tables("订单").Cols
    If cl.DataCol.IsBoolean Then  \'如果是时间列,逻辑列,数值列
        Continue For    \'排除
    End If
    For Each nm As String In nms
        If nm = cl.Name Then
            If cl.DataCol.IsString Then
                If Filter > "" Then
                    Filter = Filter & " And "
                End If
                Filter = Filter  & "[" & cl.Name & "] Like \'*" & e.Node.Text & "*\'"
            End If
        End If

next

next

If Filter > "" Then
    Tables("订单").Filter = Filter
End If

 老大,我怎么修改这个字符串,可以做到底下代码的效果?

Dim Value()As String
Value = e.Node.FullPath.Split("\\")
Select Case e.Node.Level
Case 0
Tables("订单").Filter ="[产品] = \'" & Value(0) & "\'"
Case 1
Tables("订单").Filter ="[产品] = \'" & Value(0) & "\' And [客户] = \'" & Value(1) & "\'"
Case 2
Tables("订单").Filter ="[产品] = \'" & Value(0) & "\' And [客户] = \'" & Value(1) &"\' And [雇员] = \'" & Value(2) & "\'"
End Select

现在是一个节点筛选的