以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  SQL查询问题,看帮助也没弄懂  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=87099)
--  作者：舞楼名角
--  发布时间：2016/7/3 11:07:00
--  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
-------------------------------------------------------------------------------------------
--  作者：大红袍
--  发布时间：2016/7/4 0:25:00
--  
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
DataTables("产品档案").Load
--  作者：舞楼名角
--  发布时间：2016/7/4 0:35:00
--  
问题解决，3Q