| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 多项查询 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=125779) |
| -- 作者：有点蓝 -- 发布时间：2018/10/7 9:44:00 -- …… Dim Filter2 As String If e.Form.Controls("已完成").Checked = True \' 如果付款状态选择了"已付" If Filter2 >"" Then Filter2 = Filter2 & " or " End If Filter2 = Filter2 & "订单状态 = \'已完成\'" End If If e.Form.Controls("未加工").Checked = True \' 如果付款状态选择了"已付" If Filter2 >"" Then Filter2 = Filter2 & " or " End If Filter2 = Filter2 & "订单状态 = \'未加工\'" End If If e.Form.Controls("进行中").Checked = True \' 如果付款状态选择了"已付" If Filter2 >"" Then Filter2 = Filter2 & " or " End If Filter2 = Filter2 & "订单状态 = \'进行中\'" End If If e.Form.Controls("调机").Checked = True \' 如果付款状态选择了"已付" If Filter2 >"" Then Filter2 = Filter2 & " or " End If Filter2 = Filter2 & "订单状态 = \'调机\'" End If If Filter2 >"" Then Filter = Filter & " and ( " & Filter2 & ")" End If …… |