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

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

Tables("产品档案").filter = filter

-------------------------------------------------------------------------------------------

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