以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  数据未加载如何从后台数据表查询  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=143095)
--  作者：zyxhx
--  发布时间：2019/11/13 14:35:00
--  数据未加载如何从后台数据表查询
老师你好，我的数据源为外部表，数据量较大，启动时设置了不加载，我想直接从后数据表直接查询，我看了帮助文件还是没有弄通，以下代码查询应该如何修改，请老师指点，谢谢！

Dim nms() As String = {"xinminbox","sfzbox","ynzbox"}
Dim sps() As String = {"\'","\'","\'"}
Dim bjf() As String = {" = "," = "," = "}
Dim fds() As String = {"姓名","身份证号","医疗证号"}
Dim filter As String
For i As Integer = 0 To nms.Length - 1
    If e.Form.Controls(nms(i)).value IsNot Nothing Then
        If filter > "" Then
            filter =  filter & " and "
        End If
        filter = filter & fds(i) & bjf(i) & sps(i) & e.Form.Controls(nms(i)).value & sps(i)
    End If
Next

If filter > "" Then
    Tables("参合成员信息").filter = filter
End If
--  作者：有点蓝
--  发布时间：2019/11/13 14:54:00
--  
If filter > "" Then
    dataTables("参合成员信息").loadfilter = filter
dataTables("参合成员信息").load
End If
--  作者：zyxhx
--  发布时间：2019/11/13 15:59:00
--  
谢谢老师