Dim nms() As String = {"S材料名称","S产品名称","S调配人","S调制墨名称","S机台编码","S机台名称","S墨桶编号"}
Dim sps() As String = {"'","'","'","'","'","'","'"}
Dim bjf() As String = {" ="," = "," = "," = "," = "," = "," = "}
Dim fds() As String = {"材料信息","产品名称","调配人","调制墨名称","机台编码","机台名称","墨桶编号"}
Dim filter As String
For i As Integer = 0 To nms.Length - 1
If e.Form.Controls(nms(i)).text <> Nothing Then
If filter > "" Then
filter = filter & " And "
End If
filter = filter & fds(i) & bjf(i) & sps(i) & e.Form.Controls(nms(i)).value & sps(i)
End If
Next
msgbox(filter)
DataTables("调制墨信息").LoadFilter = filter
DataTables("调制墨信息").Load()
加好友 
发短信
Post By：2018/5/16 15:16:00 [显示全部帖子]
