还是下不去手，代码写点删点，觉得很简单的东西就是整不出来，可能还是不扎实，但是吧帮助翻便了都没找到好办法，像下面的这个例子，获取父表对应的行，但是父表还有很多行，到底怎么弄呢。
Select
Case e.DataCol.Name
Case
"产品编号"
If e.NewValue
Is
Nothing
Then
e.DataRow("单价") =
Nothing
Else
Dim pr As
DataRow = e.DataRow.GetParentRow("产品")
If pr IsNot
Nothing
Then
e.DataRow("单价") = pr("单价")
If
e.OldValue <> e.NewValue Then
'如果新旧产品编号不同
DataTables("产品").DataCols("产品编号").RaiseDataColChanged(pr)
'重算新产品的销售数量和金额
End
If
End
If
End
If
If e.OldValue IsNot
Nothing
AndAlso e.OldValue <> e.NewValue Then
'如果原产品编号不为空,且和新产品编号不同.
pr = DataTables("产品").Find("[产品编号] = " & e.OldValue)
If pr IsNot
Nothing
Then
DataTables("产品").DataCols("产品编号").RaiseDataColChanged(pr) '重算原产品的销售数量和金额
End
If
End
If
Case
"数量","折扣","已付款","单价"
If e.OldValue <>
e.NewValue Then
Dim pr As
DataRow = e.DataRow.GetParentRow("产品")
If pr IsNot
Nothing
Then
DataTables("产品").DataCols("产品编号").RaiseDataColChanged(pr)
End
If
End
If
End
Select
加好友 
发短信
Post By：2014/8/15 15:33:00 [只看该作者]
