- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 求助 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=65806)
-- 发布时间：2015/3/23 16:17:00
-- 求助
问题：
查找客户是 AA 并且未校验部分，把未校验部分修改为校验，在控件里面怎么编写代码
此主题相关图片如下：无标题.jpg
-- 发布时间：2015/3/23 16:22:00
--
dim Filter as string
if e.form.controls("comboBox1").text <> "" then
Filter="客户=\'" & e.form.controls("comboBox1").text & "\'"
end if
if e.form.controls("已校验").checked then
if Filter > "" then
Filter = Filter & " and "
end if
Filter=Filter & "校验=True"
end if
if e.form.controls("未校验").checked then
if Filter > "" then
Filter = Filter & " and "
end if
Filter=Filter & "校验=False"
end if
Tables("XX").Filter= Filter