以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  SQL数据源动态加载  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=90546)

--  作者:yifan3429
--  发布时间:2016/9/16 15:26:00
--  SQL数据源动态加载
SQL数据源动态加载失败  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:sql数据源下的子表数据动态加载.foxdb


--  作者:yifan3429
--  发布时间:2016/9/16 16:37:00
--  
老师们不在  顶下


--  作者:yifan3429
--  发布时间:2016/9/16 22:41:00
--  
再顶顶图片点击可在新窗口打开查看
--  作者:cbt
--  发布时间:2016/9/17 8:46:00
--  
Dim ids As String
For Each dr As DataRow In DataTables("订单").DataRows
    ids = ids & "\'" & dr("订单号") & "\',"
Next
ids=ids.Trim(",")
DataTables("订单子表").LoadFilter = "订单号 In (" & ids & ")"
DataTables("订单子表").Load()

--  作者:yifan3429
--  发布时间:2016/9/17 23:28:00
--  
还是需要设计全部加载才有效  如果初始不加载数据  貌似不行!!
[此贴子已经被作者于2016/9/18 8:04:37编辑过]

--  作者:有点蓝
--  发布时间:2016/9/18 9:10:00
--  
把订单设为初始不加载,项目AfterOpenProject事件中加入如下代码

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