如果产品表和订单表是通过品名、型号、规格这三列联系起来的(不管是否建立了关联)，在订单表输入品名、型号、规格后，再从产品表找出对应产品的单价，填入单价列中，那么订单表的DataColChanged事件可如下设置代码：
Select
Case e.DataCol.Name
Case "品名","型号","规格"
Dim dr As DataRow = e.DataRow
Dim pr As DataRow
If dr.IsNull("品名") OrElse dr.IsNull("型号") OrElse dr.IsNull("规格") Then
dr("单价") = Nothing
Else
Dim filter As String
filter = "品名 = '" & dr("品名") & "' And 型号 = '" & dr("型号") & "' And 规格 = '" & dr("规格") & "'"
pr = DataTables("产品").Find(filter)
If pr IsNot Nothing Then
dr("单价") = pr("单价")
End If
End If
End Select
请问下，对于这段代码，如果订单表跟产品表都已经录完了，当我修改产品表的时候订单表的价格也可以实时的更新，这要怎么弄呢~！谢谢啦！
加好友 
发短信
Post By：2012/9/10 15:19:00 [显示全部帖子]
