表{采购订单子表}的DataColChanged 事件
If e.DataCol.Name = "单价"
Dim s As String = e.DataRow.GetParentRow("采购订单主表")("供应商名称")
Dim cmd As New SQLCommand
cmd.C
cmd.CommandText = "select * from{产品资料孙表} where 料号 = '" & e.DataRow("料号") & "' And 供应商 = '" & s & "'"
Dim dt As DataTable = cmd.ExecuteReader(True)
For Each dr As DataRow In dt.DataRows
dr("单价") = e.NewValue
Next
End If
表{产品资料}的 DataColChanged 事件
Select Case e.DataCol.Name
Case "单价"
e.DataRow("未税单价") = e.NewValue
e.DataRow.GetParentRow("产品资料子表")("均价") = Tables("产品资料孙表").Compute("avg(未税单价)","料号 ='" & e.DataRow.GetParentRow("产品资料子表")("料号") & "'")
If e.DataRow("未税单价") > e.DataRow.GetParentRow("产品资料子表")("均价") Then
e.DataRow.SetError("未税单价", "单价高于平均进价!")
Else
e.DataRow.SetError("未税单价","")
End If
End Select
表{采购订单子表}的DataColChanged 事件 里我想触发{产品资料孙表}的DataColchanged事件来更新{产品资料孙表}后台数据要怎么办呢?
[此贴子已经被作者于2013-5-13 11:21:40编辑过]