"select 单号,操作日期,建单人 from 数据库  where 建单人='" & Text1.Text & "' and 单号='" & Combo1.Text & "' and 操作日期>=#" & DTPicker1.Value & "# and 操作日期<=#" & DTPicker2.Value & "# "
请问如何修改可以满足 建单人 为空就执行单号和操作日期的条件，建单人、单号 为空就执行 操作日期的条件，意思就是条件为空就忽略。

if text1.text=““then
"select 单号,操作日期,建单人 from 数据库  where 单号='" & Combo1.Text & "' and 操作日期>=#" & DTPicker1.Value & "# and 操作日期<=#" & DTPicker2.Value & "# "

s=""
if len(text1.text)>0 then
   s=s & "and 建单人='" & Text1.Text & "' "
end if
if len(Combo1.Text)>0 then
   s=s & "and 单号='" & Combo1.Text & "' "
end if
s=mid(s,4)
s="select 单号,操作日期,建单人 from 数据库  where " & s & " and 操作日期>=#" & DTPicker1.Value & "# and 操作日期<=#" & DTPicker2.Value & "# ;"

谢谢！

谢谢!我测试下。

感谢版主，测试成功了。