以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]万能查询代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=83006)

--  作者:ZDG
--  发布时间:2016/3/29 16:26:00
--  [求助]万能查询代码
图片点击可在新窗口打开查看 求这样可以无限追加条件的查询代码

--  作者:ZDG
--  发布时间:2016/3/29 16:35:00
--  

补充下,只要思路,不用写实际代码


--  作者:大红袍
--  发布时间:2016/3/29 16:39:00
--  
 只要知道列名和查询的内容,就能合成条件了啊
--  作者:大红袍
--  发布时间:2016/3/29 16:39:00
--  

http://www.foxtable.com/help/topics/2178.htm

 


--  作者:ZDG
--  发布时间:2016/3/29 16:48:00
--  

我是想做个所有的表都能用的查询器,就是不知道怎样才能无限制追加条件

 


--  作者:ZDG
--  发布时间:2016/3/29 16:50:00
--  

比如说用文本框是三个框就最多3个条件,用表可以一直追加,但是查询语句不知道怎么加

 


--  作者:大红袍
--  发布时间:2016/3/29 17:53:00
--  

比如,条件可以这样合成。

 

Dim filter As String = "1=1"
For Each r As Row In Tables("表A").rows
    filter &= " and " & r("第一列") & "=\'" & r("第二列") & "\'"
Next

msgbox(filter)