Dim dtw As DataRow
If Tables("出库主表_出库明细表").Position = -1 Then
Return
End If
If vars("_qd") = "qdz"
Return
End If
If e.DataRow.Isnull("品号") =False Then
dtw = DataTables("产品表").find("品号 = '" & e.DataRow("品号") & "'")
If dtw Is Nothing Then
MessageBox.Show("当前品号不存在,请核对!","提醒")
e.DataRow("品号") = Nothing
Return
End If
End If
‘上面几个判断干嘛用的，如果不符合条件会导致下面不进行计算
Select Case e.DataCol.name
Case "张数","单张装车平方","单张销售平方","单张库存平方"
e.DataRow("库存平方") = e.DataRow("单张库存平方") * e.DataRow("张数")
e.DataRow("销售平方") = e.DataRow("单张销售平方") * e.DataRow("张数")
e.DataRow("装车平方") = e.DataRow("单张装车平方") * e.DataRow("张数")
Case "品名","做账_单价","开单_单价"
If e.DataRow("品名") = "搬运费" Or e.DataRow("品名") = "冲减货款" Then
e.DataRow("做账_金额") = e.DataRow("做账_单价")
e.DataRow("开单_金额") = e.DataRow("开单_单价")
Else
e.DataRow("做账_金额") = e.DataRow("销售平方") * e.DataRow("做账_单价")
e.DataRow("开单_金额") = e.DataRow("销售平方") * e.DataRow("开单_单价")
End If
Case "订单备注"
If e.DataRow.IsNull("订单备注") = False Then
If e.DataRow("订单备注").Contains("无表层") Then
e.DataRow("种类") = "3E棕无"
End If
End If
End Select
加好友 
发短信
Post By：2019/3/21 12:05:00 [只看该作者]
