MYSQL没有这二个表的属性,DataColChanged事件,直接引用肯是错,如果要写在全局件怎么改?
8、将订单表的DataColChanged事件代码设置为:
Select Case e.DataCol.Name
Case "产品编号"
Dim pr As DataRow = e.DataRow.GetParentRow("产品")
If pr IsNot Nothing Then
e.DataRow("单价") = pr("单价")
End If
End Select
这样在订单表输入产品编号,会自动从产品表中找出对应的产品,然后取其单价填入到订单表的单价列中。
9、将产品表的DataColChanged事件代码设置为:
If e.DataCol.Name = "单价" Then '更新未确认订单的单价
Dim drs As List(of DataRow)
drs = e.DataRow.GetChildRows("订单")
For Each dr As DataRow In drs
If dr("确认") = False Then
dr("单价") = e.DataRow("单价")
End If
Next
End If
这样在产品表修改某产品的单价,系统会找出订购此产品的全部订单,然后并将未确认订单的单价更新为新的单价。