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
加好友 
发短信
Post By：2015/3/23 16:22:00 [显示全部帖子]
