| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 查询代码 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=88686) |
| -- 作者：yezhang -- 发布时间：2016/8/7 18:10:00 -- 查询代码 可以帮我看看这代码哪里有问题吗？ 以下内容为程序代码:
1 Dim Filter As String 2 With e.Form.Controls("DateTimePicker1") 3 If .Value IsNot Nothing Then 4 If Filter ＞"" Then 5 Filter = Filter & " And " 6 End If 7 Filter = Filter & "ReportTime = # " & .Value & "#" 8 End If 9 End With 10 If Filter ＞ "" Then 11 Tables("V010011_01").Filter = Filter 12 End If |
| -- 作者：17777188 -- 发布时间：2016/8/7 19:42:00 -- 报的什么错？ |
| -- 作者：yezhang -- 发布时间：2016/8/8 8:28:00 -- 没报错但是查询时没数据 |
| -- 作者：cbt -- 发布时间：2016/8/8 9:02:00 -- MessageBox.Show(filter) 看一下 |
| -- 作者：大红袍 -- 发布时间：2016/8/8 10:04:00 -- 1、控件里的日期你填写了吗？
2、表名你确定没写错？注意是不是窗口表。 |
| -- 作者：yezhang -- 发布时间：2016/8/8 14:50:00 -- 写了的，表名也没错，是窗口表 |
| -- 作者：大红袍 -- 发布时间：2016/8/8 14:54:00 -- 那就改成
e.Form.Controls("Table1").Table.Filter = |
| -- 作者：yezhang -- 发布时间：2016/8/8 15:14:00 -- 可以了，谢谢 |