以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  按条件加载  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=122961)
--  作者：wtfwsk05
--  发布时间：2018/8/5 19:30:00
--  按条件加载

图片点击可在新窗口打开查看此主题相关图片如下：条件加载.png
图片点击可在新窗口打开查看
如何在“加载表”中批量加载选中的表：
For Each r As Row In Tables("加载表").Rows
    If r("加载").Locked = True Then
        Dim strs As List(of String())
        strs = DataTables("加载表").GetValues("表名|表标题")
        For Each str As String() In strs
            Dim qb As new QueryBuilder
            qb.C
            qb.TableName = str(0)
            qb.TableCaption = str(1)
            qb.SelectString = "select * f rom sapprd." & str(0) & " where mandt = 800 "
            qb.Build
        Next
    End If
Next
--  作者：有点甜
--  发布时间：2018/8/5 20:21:00
--  

If r("加载").Locked = True Then

 

改成

 

If r("加载") = True Then
--  作者：有点甜
--  发布时间：2018/8/5 20:23:00
--  
For Each r As Row In Tables("加载表").Rows
    If r("加载")= True Then
        Dim qb As new QueryBuilder
        qb.TableName = r("表名")
        qb.TableCaption = r("表标题")
        qb.SelectString = "select * f rom sapprd." & str(0) & " where mandt = 800 "
        qb.Build
       
    End If
Next
--  作者：wtfwsk05
--  发布时间：2018/8/5 20:47:00
--  
我在加载表的datacolchanged事件上维护了上述代码，给某的加载列打勾后，可以加载，为什么取消勾后无法卸载
--  作者：wtfwsk05
--  发布时间：2018/8/5 21:02:00
--  
感谢老师，我上述问题我已解决了，另一个思考或疑问，通过上述代码生成的是查询表，我怎么实现生成的是数据表
--  作者：有点甜
--  发布时间：2018/8/5 21:10:00
--  
以下是引用wtfwsk05在2018/8/5 20:47:00的发言：
我在加载表的datacolchanged事件上维护了上述代码，给某的加载列打勾后，可以加载，为什么取消勾后无法卸载

 

卸载，参考

 

http://www.foxtable.com/webhelp/scr/2754.htm

 
--  作者：有点甜
--  发布时间：2018/8/5 21:10:00
--  
以下是引用wtfwsk05在2018/8/5 21:02:00的发言：
感谢老师，我上述问题我已解决了，另一个思考或疑问，通过上述代码生成的是查询表，我怎么实现生成的是数据表

 

参考

 

http://www.foxtable.com/webhelp/scr/1279.htm