- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求教动态加载行 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=113092)
-- 发布时间：2018/1/9 7:59:00
-- 求教动态加载行
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
如果订单编号是字符型，怎么修改
-- 发布时间：2018/1/9 8:07:00
--
此主题相关图片如下：qq截图20180109080628.png
出现这个错误，什么原因
-- 发布时间：2018/1/9 8:43:00
--
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
-- 发布时间：2018/1/9 9:00:00
--
If e.Table.Current IsNot Nothing Then
Dim Filter As String = "项目编号 = \'" & e.Table.Current("项目编号") & "\'"
\' MessageBox.Show(filter)
If DataTables("器材明细表").Find(Filter) Is Nothing Then \'如果对应的订单明细没有加载过
DataTables("器材明细表").AppendLoad(Filter) \'则追载此订单的订单明细
End If
End If
If e.Table.Current IsNot Nothing Then
Dim Filter As String = "项目编号 = \'" & e.Table.Current("项目编号") & "\'"
\' MessageBox.Show(filter)
If DataTables("实际工程量").Find(Filter) Is Nothing Then \'如果对应的订单明细没有加载过
DataTables("实际工程量").AppendLoad(Filter) \'则追载此订单的订单明细
End If
End If
加载多条怎么弄呢
-- 发布时间：2018/1/9 9:35:00
--
参考 http://www.foxtable.com/webhelp/scr/1647.htm
-- 发布时间：2018/1/9 11:57:00
--
还是不会写呀
-- 发布时间：2018/1/9 12:00:00
--
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
-- 发布时间：2018/1/9 12:03:00
--
If e.Table.Current IsNot Nothing Then
Dim Filter As String = "项目编号 = \'" & e.Table.Current("项目编号") & "\'"
Dim ary() = {"器材明细表","实际工程量","实际费用","实际材料"}
For Each s As String In ary
If DataTables(s).Find(Filter) Is Nothing Then \'如果对应的订单明细没有加载过
DataTables(s).AppendLoad(Filter) \'则追载此订单的订单明细
End If
Next
End If
-- 发布时间：2018/1/9 12:46:00
--
此主题相关图片如下：qq截图20180109124526.png
有错误提示
-- 发布时间：2018/1/9 14:35:00
--
贴出你表格的 beforeLoad 事件、afterLoad 事件。
做一个具体例子发上来测试。