- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 时间代码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=123588)
-- 发布时间：2018/8/18 16:18:00
-- 时间代码
此主题相关图片如下：微信图片_20180818161539.png
老师，这个代码错在哪了呢？
[此贴子已经被作者于2018/8/18 16:18:42编辑过]
-- 发布时间：2018/8/18 16:19:00
--
此主题相关图片如下：微信图片_20180818161544.png
-- 发布时间：2018/8/18 16:26:00
--
调换一下位置，先给日期赋值再使用
d1=....
d2=...
filter=...
-- 发布时间：2018/8/18 16:36:00
--
此主题相关图片如下：微信图片_20180818163255.png
此主题相关图片如下：微信图片_20180818163304.png
此主题相关图片如下：微信图片_20180818163308.png
老师，改过来也不行呀！看看窗口有没有问题
-- 发布时间：2018/8/18 16:48:00
--
Filter前面的“# And”字符去掉
-- 发布时间：2018/8/18 17:26:00
--
此主题相关图片如下：微信图片_20180818172320.png
此主题相关图片如下：微信图片_20180818172326.png
改过来出现新问题
-- 发布时间：2018/8/18 17:37:00
--
filter里面有多余的双引号，自己检查一下
-- 发布时间：2018/8/19 9:32:00
--
老师，看不出来错在哪了
此主题相关图片如下：微信图片_20180819092848.png
此主题相关图片如下：微信图片_20180819093023.png
-- 发布时间：2018/8/19 9:34:00
--
不要截图，请直接贴出代码文字
-- 发布时间：2018/8/19 9:48:00
--
Dim Filter As String = ""
If e.node.Name <> "显示所有行" Then \'要用Name属性,不能用Text属性
Dim d1 As Date
Dim d2 As Date
Dim Product As String = e.Node.DataRow("收支")
Dim Year As Integer = e.Node.DataRow("年")
Dim Month As Integer = e.Node.DataRow("月")
Select Case e.Node.Level
Case 0
d1 = New Date(Year,1,1) \'取得该年的第一天
d2 = new Date(Year,12,31) \'取得该年的最后一天
Filter = " 收支 = \'" & Product & "\'"
Case 1
d1 = New Date(Year, Month, 1) \'取得该月的第一天
d2 = new Date(Year, Month, Date.DaysInMonth(Year,Month)) \'取得该月的最后一天
Filter= " 收支 =" & Product & "# And日期 >= #" & d1 & "# And 日期 <= #" & d2 & "#"
Case 2
d1 = New Date(Year, Month, 1) \'取得该月的第一天
d2 = new Date(Year, Month, Date.DaysInMonth(Year,Month)) \'取得该月的最后一天
Filter =" 收支 =" & Product & "# And 日期 >= #" & d1 & "# And 日期 <= #" & d2 & "#"
End Select
End If
Tables("流水表").Filter = Filter