如何筛选时间？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

请问老师：如何修改下列代码可以筛选出日期这个时间段？谢谢

Dim dt As DataTable=DataTables("资金支付单")

Dim tv As WinForm.TreeView = e.Form.Controls("TreeView1")

tv.Nodes.Insert("显示所有行",0)

Dim str0 As String = dt.GetComboListString("申请单位")

Dim str2 As String = dt.GetComboListString("批复状态")

Dim str3 As String = dt.GetComboListString("批复_日期")

tv.Nodes.Add("申请单位","申请单位")

tv.Nodes.Add("批复状态","批复状态")

tv.Nodes.Add("批复_日期","批复日期")

For Each s As String In str0.Split("|")

Dim node As WinForm.TreeNode

node= tv.Nodes("申请单位").Nodes.Add(s)

Dim str As String = dt.GetComboListString("批复状态","申请单位='" & s & "'")

For Each s2 As String In str.Split("|")

node.Nodes.Add(s2)

For Each s As String In str2.Split("|")

Dim node As WinForm.TreeNode

node= tv.Nodes("批复状态").Nodes.Add(s)

Dim str As String = dt.GetComboListString("申请单位","批复状态='" & s & "'")

For Each s2 As String In str.Split("|")

node.Nodes.Add(s2)

For Each s As String In str3.Split("|")

If s<>"" Then

s=s.Replace("0:00:00","")

Dim node As WinForm.TreeNode

node= tv.Nodes("批复_日期").Nodes.Add(s)

Dim str As String = dt.GetComboListString("申请单位","批复_日期= #" &s &"#" )

For Each s2 As String In str.Split("|")

node.Nodes.Add(s2)

End If

[此贴子已经被作者于2016/10/8 12:09:40编辑过]

主题：如何筛选时间？