主题：SQL查询问题,看帮助也没弄懂

Dim nms() As String = {"ComboBox1","ComboBox2","ComboBox3"}

Dim sps() As String = {"'%","%'","'%","%'", "'%","%'"}

Dim bjf() As String = {" Like "," Like "," Like "}

Dim fds() As String = {"产品分类","产品名称","属性描述"}

Dim filter As String = "1=1"

For i As Integer = 0 To nms.Length - 1

    Dim gx As String = e.Form.controls(nms(i)).value

    If gx > "" Then

        filter = filter & " And " & fds(i) & bjf(i) & sps(i * 2) & gx & sps(i * 2 + 1)

    End If

Next

 

DataTables("产品档案").LoadFilter = filter