- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 明细追载报错 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=88348)
-- 发布时间：2016/8/1 12:43:00
-- 明细追载报错
此主题相关图片如下：微信截图_20160801134819.png
-- 发布时间：2016/8/1 13:54:00
--
-- 发布时间：2016/8/1 14:24:00
--
Dim Filter As String = "订单号 = " & e.Table.Current("订单号")
改成
Dim Filter As String = "订单号 = \'" & e.Table.Current("订单号") & "\'"
-- 发布时间：2016/8/1 14:59:00
--
老师 现在可以不回报错了 但是 我是多级关联
-- 发布时间：2016/8/1 15:03:00
--
对应的，也把其它表的数据动态加载进来，比如
DataTables("产品").LoadFilter = "xxxxx"
DataTables("产品").Load
或者 http://www.foxtable.com/webhelp/scr/2894.htm
-- 发布时间：2016/8/1 15:24:00
--
在区域表的AfterLoad事件加上代码：
e.DataTable.LoadChildren("产品")
CurrentChanged
If e.Table.Current IsNot Nothing Then
Dim Filter As String = "区域号 = \'" & e.Table.Current("区域号") & "\'"
If DataTables("产品").Find(Filter) Is Nothing Then \'如果对应的订单明细没有加载过
DataTables("产品").AppendLoad(Filter) \'则追载此订单的订单明细
End If
End If
都不行 如何是好此主题相关图片如下：qq截图20160801152057.png
-- 发布时间：2016/8/1 15:29:00
--
先试试这样
If e.Table.Current IsNot Nothing Then
Dim Filter As String = "区域号 = \'" & e.Table.Current("区域号") & "\'"
DataTables("产品").RemoveFor(filter)
DataTables("产品").AppendLoad(Filter) \'则追载此订单的订单明细
End If
-- 发布时间：2016/8/1 15:40:00
--
-- 发布时间：2016/8/1 15:43:00
--
那就这样写
If e.Table.Current IsNot Nothing Then
Dim Filter As String = "区域号 = \'" & e.Table.Current("区域号") & "\'"
DataTables("产品").LoadFilter = Filter
DataTables("产品").Load
End If
-- 发布时间：2016/8/1 16:10:00
--
还是不会加载 是不是 窗口关联表的原因 追载不成功 还是默认加载的那些行 不会将后台的加载进来
