Select Case e.DataCol.Name
Case "现金结帐"
SystemReady = False '暂停执行事件代码
Try
Functions.Execute("stop_exp") '暂停表达式
For Each dr As DataRow In DataTables("出库主表").Select("订单客户 = '" & e.DataRow("订货客户") & "'")
dr("现金客户") = e.DataRow("现金结帐")
'MessageBox.Show(e.DataRow("订货客户") & " " & e.DataRow(e.DataCol.Name) )
Next
Catch ex As Exception
MessageBox.Show("更新现金结帐失败")
End Try
Functions.Execute("restore_exp") '恢复表达式
SystemReady = True '恢复执行事件代码
MessageBox.Show("现金结帐状态修改完毕")
Case "结算日"
SystemReady = False '暂停执行事件代码
Try
'追加数据代码
Functions.Execute("stop_exp") ‘暂时取消表达式
For Each dr As DataRow In DataTables("出库主表").Select("订单客户 = '" & e.DataRow("订货客户") & "'")
dr("结算日") = e.DataRow("结算日")
Next
Catch ex As Exception
MessageBox.Show("更新结算日失败")
End Try
Functions.Execute("restore_exp") ’恢复表达式
SystemReady = True '恢复执行事件代码
MessageBox.Show(e.DataRow("订货客户") & " " & e.DataRow(e.DataCol.Name) & " 结算日修改完毕")
Case "结算单客户确认"
SystemReady = False '暂停执行事件代码
Try
Functions.Execute("stop_exp")
For Each dr As DataRow In DataTables("出库主表").Select("订单客户 = '" & e.DataRow("订货客户") & "'")
dr("结算单客户确认") = e.DataRow("结算单客户确认")
Next
Catch ex As Exception
MessageBox.Show("更新结算客户确认日失败")
End Try
Functions.Execute("restore_exp")
SystemReady = True '恢复执行事件代码
MessageBox.Show(e.DataRow("订货客户") & " 结算单客户确认修改完毕")
Case Else
' 代码X
End Select
与”出库主表“关联的表达式有：
DataTables("出库主表").DataCols("总金额").Expression = "Sum(Child(出库明细).金额)"
DataTables("出库明细表").DataCols("用料规格").Expression = "Parent(出库产品信息).用料规格" '2017.3.31
DataTables("出库明细表").DataCols("型号规格").Expression = "Parent(出库产品信息).型号规格" '2017.3.31
DataTables("出库明细表").DataCols("剩余数量").Expression = "Parent(订单_出库).未交数量"
DataTables("出库明细表").DataCols("金额").Expression = "[单价] * [实交数量]"
DataTables("出库明细表").DataCols("已对账").Expression = "Parent(出库明细).已对账"
DataTables("出库明细表").DataCols("对账单").Expression = "Parent(出库明细).对账单"
DataTables("出库明细表").DataCols("制单日期").Expression = "Parent(出库明细).制单日期"
DataTables("出库明细表").DataCols("订单客户").Expression = "Parent(出库明细).订单客户"
DataTables("出库明细表").DataCols("订单数量").Expression = "Parent(订单_出库).订单数量"
DataTables("出库明细表").DataCols("已送数量").Expression = "Parent(订单_出库).已交数量"
DataTables("出库明细表").DataCols("单位").Expression = "Parent(出库产品信息).单位"
DataTables("出库明细表").DataCols("备注1").Expression = "Parent(出库产品信息).备注1" '2017.3.31
DataTables("出库明细表").DataCols("备注2").Expression = "Parent(出库产品信息).备注2" '2017.3.31
DataTables("出库明细表").DataCols("客户图号").Expression = "Parent(出库产品信息).客户图号"
DataTables("出库明细表").DataCols("客户物料代码").Expression = "Parent(出库产品信息).客户物料代码"
[此贴子已经被作者于2022/12/26 9:34:47编辑过]
加好友 
发短信
Post By：2022/12/26 9:22:00 [只看该作者]
