- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]关于生成后临时表的筛选 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=74355)
-- 发布时间：2015/9/9 12:11:00
-- [求助]关于生成后临时表的筛选
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:代码.txt |
此主题相关图片如下：qq截图20150909120528.jpg
如题，临时表通过代码生成，但想在生成之前对图片中红色框中的条件进行筛选。
1.如果“日期”控件为空的话，筛选全部日期，否则筛选指定日期；
2.如果“客户”控件为空的话，筛选全部客户，否则筛选指定客户；
3.如果“型号“控件为空的话，筛选全部型号，否则筛选指定型号；
4.如果”规格“控件为空的话，筛选全部规格，否则筛选指定规格。
请赐教，谢谢！
-- 发布时间：2015/9/9 14:37:00
--
呃，帮助文档本来就有。
http://www.foxtable.com/help/topics/1058.htm
-- 发布时间：2015/9/9 14:39:00
--
生成筛选条件以后，再放到你的代码里面去。
-- 发布时间：2015/9/9 14:51:00
--
我是这样按照帮助做的但是他提示错误：语法错误:“And”运算符后缺少操作数。
-- 发布时间：2015/9/9 15:17:00
--
汗，你根本就没看2楼。
Dim filter As String = "1=1"
Dim ed As Date = e.Form.Controls("日期").Value
If ed <> Nothing Then
filter &= " and 送货日期 = #" & ed & "# "
End If
Dim kh As String = e.Form.Controls("客户代号").Value
If kh <> Nothing Then
filter &= " and 客户代号 = \'" & kh & "\' "
End If
msgbox(filter)
[此贴子已经被作者于2015/9/9 15:17:11编辑过]