从代码逻辑看，这样效果应该一样，有些判断有些多余：
Select Case e.DataCol.Name
Case "产品名称","产品颜色","产品规格","销售价"
Dim Filter As String = "产品型号 = '" & e.DataRow("产品型号") & "'"
Dim drs As List(of DataRow) = DataTables("订单明细表").Select(Filter)
For Each dr As DataRow In drs
dr("产品名称") = e.DataRow("产品名称")
If dr.Locked = False AndAlso dr("已发货") = False
dr("销售价") = e.DataRow("销售价")
End If
Next
Case "产品型号"
Dim Filter As String = "产品型号 = '" & e.DataRow("产品型号") & "'"
e.DataRow("销售_数量") = DataTables("订单明细表").Compute("Sum(数量)", Filter)
e.DataRow("销售_金额") = DataTables("订单明细表").Compute("Sum(金额)", Filter)
e.DataRow("未发货订单_数量") = DataTables("订单明细表").Compute("Sum(数量)", Filter & " And 已付款 = true")
e.DataRow("未发货订单_金额") = DataTables("订单明细表").Compute("Sum(金额)", Filter & " And 已付款 = true")
Dim pr As DataRow
If e.NewValue Is Nothing Then
e.DataRow("销售价") = Nothing
e.DataRow("产品名称") = Nothing
Else
pr = DataTables("产品信息表").Find("[产品型号] = '" & e.NewValue & "'")
If pr IsNot Nothing Then
e.DataRow("销售价") = pr("销售价")
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
pr = DataTables("产品信息表").Find("[产品型号] = '" & e.DataRow("产品型号") & "'")
If pr IsNot Nothing Then
DataTables("产品信息表").DataCols("产品型号").RaiseDataColChanged(pr)
End If
End If
End Select
加好友 
发短信
Post By：2012/4/22 19:09:00 [显示全部帖子]
