| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 更换数据源 代码失效 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=90090) |
| -- 作者：yifan3429 -- 发布时间：2016/9/5 14:27:00 -- 更换数据源 代码失效 改为 SQL数据后 e.DataTable.LoadChildren("订单明细") 不执行 改为如下 If DataTables("订单总表").DataRows.Count = 0 Then \'如果订单表没有数据 DataTables("订单明细").LoadFilter = "订单号 Is Null" \'不加载订单明细 Else Dim ids As String For Each dr As DataRow In DataTables("订单总表").DataRows ids = ids & "," & dr("订单号") Next ids= ids.Trim(",") DataTables("订单明细").LoadFilter = "订单号 In (" & ids & ")" End If DataTables("订单明细").Load() 明细还是不能全部加载 [此贴子已经被作者于2016/9/5 14:33:04编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2016/9/5 15:01:00 -- 1、删除关联，重新创建关联 2、 If DataTables("订单总表").DataRows.Count = 0 Then \'如果订单表没有数据 DataTables("订单明细").LoadFilter = "订单号 Is Null" \'不加载订单明细 Else Dim ids As String For Each dr As DataRow In DataTables("订单总表").DataRows ids = ids & "\',\'" & dr("订单号") Next \'ids= ids.Trim(",") DataTables("订单明细").LoadFilter = "订单号 In (\'" & ids & "\')" End If DataTables("订单明细").Load() |
| -- 作者：yifan3429 -- 发布时间：2016/9/5 16:07:00 -- 老师还是不行 只能显示默认加载的10% 不能把订单下的明细全部显示 |
| -- 作者：有点蓝 -- 发布时间：2016/9/5 16:23:00 -- 外部表管理那里改成全部加载 |
| -- 作者：yifan3429 -- 发布时间：2016/9/5 16:29:00 -- 如何才能做到和AC数据一样灵活加载呢 全部加载上面的代码就失去了意义 不用代码也是一样的啊 |
| -- 作者：有点蓝 -- 发布时间：2016/9/5 16:44:00 -- 本来就是和AC数据一样灵活加载
|
| -- 作者：yifan3429 -- 发布时间：2016/9/16 14:30:00 -- [此贴子已经被作者于2016/9/16 15:26:36编辑过]
|