……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
……
加好友 
发短信
Post By：2018/10/7 9:44:00 [显示全部帖子]
