在报价总表中增加一个逻辑列，命名为“生成订单”在报价明细中增加一个逻辑列，命名为“生成订单”
报价总表DataColChanged事件代码：
If e.DataCol.name = "生成订单"
For Each dr As DataRow In e.DataRow.GetChildRows("报价明细")
dr("生成订单") = e.DataRow("生成订单")
Next
End If
生成订单前先在报价总表的生成订单列中打钩
按钮代码：
Dim f As New Filler
f.SourceTable = DataTables("报价总表") '指定数据来源
f.DataTable = DataTables("订单") '指定数据接收表
f.Filter = "生成订单 = true"
f.Fill() '填充数据
f.SourceTable = DataTables("报价明细") '指定数据来源
f.DataTable = DataTables("订单明细") '指定数据接收表
f.Filter = "生成订单 = true"
f.Fill() '填充数据
[此贴子已经被作者于2015/7/5 19:53:21编辑过]
加好友 
发短信
Post By：2015/7/5 19:42:00 [显示全部帖子]
