以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  指定表收索  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=100178)
--  作者：yangwenghd
--  发布时间：2017/5/6 9:59:00
--  指定表收索
可以设计一个按钮吗  然后在添加一个 文本框， 输入文字，点击按钮 在指点的几个表里面同时收索，感谢 感谢 
--  作者：有点蓝
--  发布时间：2017/5/6 10:02:00
--  
dim tn() as string = {"表A","表B"}
dim value as string = e.form.controls("Textbox1").Text
for each name as string in tn
    tables(name).filter = "某列 = \'" & value & "\'"
next
--  作者：yangwenghd
--  发布时间：2017/5/6 11:25:00
--  
如果每列的名词都不一样呢  感谢 感谢 
--  作者：有点蓝
--  发布时间：2017/5/6 11:36:00
--  
dim tn() as string = {"表A","表B"}
dim cn() as string = {"表A的列","表B的列"}
dim value as string = e.form.controls("Textbox1").Text
for I as integer = 0 to tn.length - 1
    tables(tn(i)).filter = cn(I) & " = \'" & value & "\'"
next
--  作者：yangwenghd
--  发布时间：2017/5/6 14:48:00
--  
谢谢