以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  加载外部表的问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=175079)

--  作者:lungby
--  发布时间:2022/2/18 16:50:00
--  加载外部表的问题

想实现刚开始不加载表,然后通过窗口的查询按钮加载满足条件的表


窗口查询按钮 如下:

With e.Form.Controls("项目")

    If .Value IsNot Nothing Then

        If Filter >"" Then

            Filter = Filter & " And "

        End If

        Filter = "项目 like \'*" & .Value & "*\'"

    End If

End With

With e.Form.Controls("地址")

    If .Value IsNot Nothing Then

        If Filter > "" Then

            Filter = Filter & " And "

        End If

        Filter = Filter & "地址 like \'*" & .Value & "*\'"

    End If

End With

If Filter > "" Then

    DataTables("订单").LoadFilter = "Filter"

    DataTables("订单").Load

End If


请问怎么改?如何实现

[此贴子已经被作者于2022/2/18 16:52:12编辑过]

--  作者:有点蓝
--  发布时间:2022/2/18 17:00:00
--  
是指刚开始不加载表?还是刚开始不加载表数据?这是不同的2个概念
--  作者:lungby
--  发布时间:2022/2/18 17:02:00
--  
不加载表数据

BeforeLoadouttable里是按照示例五那么写的

[此贴子已经被作者于2022/2/18 17:03:54编辑过]

--  作者:有点蓝
--  发布时间:2022/2/18 17:12:00
--  
DataTables("订单").LoadFilter = Filter 去掉双引号
--  作者:lungby
--  发布时间:2022/2/18 17:15:00
--  
额,去掉后还是没有办法调出来数据,只是没有错误提示了
--  作者:有点蓝
--  发布时间:2022/2/18 17:21:00
--  
说明没有符合条件的数据
--  作者:lungby
--  发布时间:2022/2/18 17:34:00
--  
确实有数据
把BeforeLoadouttertable 里面删了加载表后,
使用
Tables("订单").Filter = Filter
就能查询出来了

但是BeforeLoadouttertable 里面删了加载表后,使用
 DataTables("订单").LoadFilter = Filter
    DataTables("订单").Load

还是什么数据都没有,是哪里有错吗

[此贴子已经被作者于2022/2/18 17:35:55编辑过]

--  作者:有点蓝
--  发布时间:2022/2/19 9:10:00
--  
试试
DataTables("订单").Loadtop=nothing
DataTables("订单").LoadFilter = Filter
    DataTables("订单").Load

--  作者:lungby
--  发布时间:2022/2/21 9:25:00
--  
还是不行,所有数据直接都没有了,运行之后,加载的数据也都没了,
--  作者:有点蓝
--  发布时间:2022/2/21 9:29:00
--  
*改为%号

Filter = "项目 like \'%" & .Value & "%\'"