系统表格载入问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 系统表格载入问题

共有2046人关注过本帖树形打印复制链接主题：系统表格载入问题

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/5/16 22:16:00 [显示全部帖子]

以下是引用jackchan120925在2019/5/16 21:57:00的发言：

那么加载表A之后，根据表A中对其他表格的设置来分别加载结构，不加载等操作，这个在哪个事件操作呢？

首先在BeforeLoadOuterTable事件，设置其它表不加载，同时设置加载条件为 where 1=2

然后在AfterOpenProject事件，再写代码加载表，然后设置加载条件。

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/5/17 18:45:00 [显示全部帖子]

2、比如代码

e.selectstring = "select * from {" & e.datatablename & "} where 1=2"

3、

For Each dr As DataRow In DataTables("A").Select("")

    If dr("参数_加载") <> "不加载" Then
        If DataTables.Contains(dr("表名")) = False Then
            DataTables.Load(dr("表名"))
        End If
        Dim dt As DataTable = DataTables(dr("表名"))
        dt.LoadTop = ""
        dt.LoadPage = 0
        dt.loadfilter = "" '加载条件
        dt.load
    End If
Next

下一主题 >> << 上一主题

主题：系统表格载入问题