只要输入一个条件
以下代码怎么不加载数据。
空白时，会加载所有数据的。
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)).value IsNot 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
DataTables("调制墨信息").LoadFilter = filter
DataTables("调制墨信息").Load()
加好友 
发短信
Post By：2018/5/16 15:13:00 [显示全部帖子]
