- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 如何筛选时间？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=91328)
-- 发布时间：2016/10/8 12:07:00
-- 如何筛选时间？
请问老师：如何修改下列代码可以筛选出日期这个时间段？谢谢
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)
Next
Next
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)
Next
Next
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)
Next
End If
Next
[此贴子已经被作者于2016/10/8 12:09:40编辑过]
-- 发布时间：2016/10/8 12:09:00
--
批复时间和批复状态应该是并列的
-- 发布时间：2016/10/8 12:09:00
--
此主题相关图片如下：qq图片20161008120550.png
-- 发布时间：2016/10/8 12:15:00
--
谢谢老师，可以了