| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]该字符串未被识别为有效的 DateTime。有一个从索引 9 处开始的未知字。 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=148583) |
| -- 作者：jlg19881228 -- 发布时间：2020/4/10 15:20:00 -- [求助]该字符串未被识别为有效的 DateTime。有一个从索引 9 处开始的未知字。 Dim dr As DataRow = e.Node.DataRow Dim Filter As String = "" If e.node.Name <> "显示所有行" Then \'要用Name属性,不能用Text属性 Dim d1 As Date Dim d2 As Date Dim Year As Integer = e.Node.DataRow("年") Dim Month As Integer = e.Node.DataRow("月") Dim Product As String = e.Node.DataRow("交易码") Select Case e.Node.Level Case 0 d1 = New Date(Year,1,1) \'取得该年的第一天 d2 = new Date(Year,12,31) \'取得该年的最后一天 Filter = "日期 >= #" & d1 & "# And 日期 <= #" & d2 & "#" Case 1 d1 = New Date(Year, Month, 1) \'取得该月的第一天 d2 = new Date(Year, Month, Date.DaysInMonth(Year,Month)) \'取得该月的最后一天 Filter = "日期 >= #" & d1 & "# And 日期 <= #" & d2 & "#" Case 2 d1 = New Date(Year, Month, 1) \'取得该月的第一天 d2 = new Date(Year, Month, Date.DaysInMonth(Year,Month)) \'取得该月的最后一天 Filter = "日期 >= #" & d1 & "# And 日期 <= #" & d2 & "# And 交易码 = \'" & Product & "\'" End Select End If Tables("交易明细").Filter = Filter
|
| -- 作者：sloyy -- 发布时间：2020/4/10 15:33:00 -- 放 messagebox检查吧,目录树取得的值有问题,合成的日期错误 |
| -- 作者：有点蓝 -- 发布时间：2020/4/10 15:49:00 -- 调试技巧：http://www.foxtable.com/webhelp/scr/1485.htm msgbox(Filter )
|