Dim Filter As String
With e.Form.Controls("DropBox1")
If .Value IsNot Nothing Then
Filter = "内部加工单号 in ('" & .Value.replace(",","','") & "')"
End If
End With
With e.Form.Controls("combobox1")
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "工段 = '" & .Value & "'"
End If
End With
With e.Form.Controls("DropBox3")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "产品名称 = '" & .Value & "'"
End If
End With
Sel ect * From {工序清单} Where filter
where 后边的应该如何写
加好友 
发短信
Post By：2017/3/8 12:09:00 [只看该作者]
