Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
Case "订单号"
Dim Filter As String = "[订单号] = '" & e.DataRow("订单号") & "'"
If e.NewValue Is Nothing Then '如果新值是空白,也就是品名列的内容为空
e.DataRow("产品名") = Nothing '那么清空此行单价列的内容
e.DataRow("订单单价") = Nothing
e.DataRow("对账单价") = Nothing
Else
Dim dr2 As DataRow
'否则在产品表查找同名的产品行,将找到的行赋值给变量dr
dr2 = DataTables("订单").Find(Filter)
If dr2 IsNot Nothing Then '如果找到了同名的产品行,也就是dr不是Nothing
e.DataRow("产品名") = dr2("部品ID")
e.DataRow("订单单价") = dr2("含税RMB单价")
e.DataRow("对账单价") = dr2("含税RMB单价")
End If
Dim drs As List(Of DataRow) = DataTables("对账单").Select(Filter,"[_Identify]")
Dim dr9 As DataRow
If drs.Count > 0 Then
dr9 = drs(0)
e.DataRow("第一次对账_对账数量") = dr9("对账数量")
e.DataRow("第一次对账_对账月") = dr9("对账月")
End If
If drs.Count > 1 Then
dr9 = drs(1)
e.DataRow("第二次对账_对账数量") = dr9("对账数量")
e.DataRow("第二次对账_对账月") = dr9("对账月")
End If
End If
e.DataRow("订单数量") = DataTables("订单").Compute("Sum(订单数量)", Filter)
e.DataRow("已发货总数量") = DataTables("发货单").Compute("Sum(发货数量)", Filter)
e.DataRow("对账总数量") = DataTables("对账单").Compute("Sum(对账数量)", Filter)
Case "订单数量","已发货总数量","对账总数量"
If dr.isnull("订单数量") Or dr.Isnull("已发货总数量") Then
dr("納品済") = False
Else
If dr("订单数量") = dr("已发货总数量") Then
dr("納品済") = True
Else
dr("納品済") = False
End If
End If
Select Case e.DataCol.name
Case "已发货总数量","对账总数量"
If dr.Isnull("已发货总数量") OrElse dr.Isnull("对账总数量") Then
dr("对账完毕") = False
Else
If dr("已发货总数量") = dr("对账总数量") Then
dr("对账完毕") = True
Else
dr("对账完毕") = False
End If
End If
End Select
Case "订单单价","对账单价"
If dr.isnull("订单单价") Or dr.Isnull("对账单价") Then
dr("单价一致") = False
Else
If dr("订单单价") = dr("对账单价") Then
dr("单价一致") = True
Else
dr("单价一致") = False
End If
End If
Case "单价一致"
If e.DataRow("单价一致") = False Then
e.DataRow("金额") =Nothing
Else
e.DataRow("金额") = e.DataRow("对账总数量") * e.DataRow("对账单价")
End If
End Select
加好友 
发短信
Post By：2016/11/29 15:33:00 [只看该作者]
