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

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)

 

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

If Values(Index)= cl.Name  Then
            x= x & cl.Name.Split(" ")(0) & "|"
  End If

老大,我试试

不对呀,老大,我这个本身就是没有问题,只是加载日期列的时候  有时间部分出现,我想去掉而已,你这个还是有.

另外一个,我这个因为是可以随意组合节点的,那么筛选的代码我应该怎么写?

只有代码,文件不提供,也只能如此了

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

 

 

现在是一个节点筛选的