| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]请教同步加载代码 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=33104) |
| -- 作者：lsf5138 -- 发布时间：2013/5/14 1:15:00 -- [求助]请教同步加载代码 Dim ids As String For Each dr As DataRow In DataTables("订单").DataRows ids = ids & ",\'" & dr("订单ID") & "\'" Next ids= ids.Trim(",") DataTables("订单明细").LoadFilter = "订单ID In (" & ids & ")" DataTables("订单明细").Load() 上面的代码会跟据 订单表 的 所有行 加载订单明细 我要跟据 订单表 的 当前行 加载订单明细 请教代码！！！！！！！！！！！！！！
|
| -- 作者：mamuaiqing -- 发布时间：2013/5/14 1:31:00 -- 帮助文件里 用Table控件模拟关联表 这章看下是不是楼主想要的 |
| -- 作者：Bin -- 发布时间：2013/5/14 8:52:00 -- DataTables("订单明细").LoadFilter = "订单ID =\'" & InTables("订单").current("订单ID") & "\'" DataTables("订单明细").Load() [此贴子已经被作者于2013-5-14 8:57:43编辑过]
|
| -- 作者：XYT -- 发布时间：2013/5/14 8:54:00 -- Dim Filter As String Filter = Tables("订单").Current("订单ID") DataTables("订单明细").LoadFilter = filter DataTables("订单明细").Load() |