If e.DataCol.Name = "单位" Then
If e.DataRow("单位") ="立方" Then
e.DataRow("小计") = e.DataRow("长") * e.DataRow("宽")*e.DataRow("厚")*0.000000001 * e.DataRow("数量")
ElseIf e.DataRow("单位") ="平方" Then
e.DataRow("小计") = e.DataRow("长") * e.DataRow("宽")*0.000001*e.DataRow("数量")
ElseIf e.DataRow("单位") ="四面套" Then
e.DataRow("小计") = (e.DataRow("长") *2 )+ (e.DataRow("宽") * 2)*0.001*e.DataRow("数量")
ElseIf e.DataRow("单位") ="三面套" Then
e.DataRow("小计") = e.DataRow("长") + (e.DataRow("宽") * 2)*0.001*e.DataRow("数量")
ElseIf e.DataRow("单位") = "件" Then
e.DataRow("小计") = e.DataRow("单价")*e.DataRow("数量")
ElseIf e.DataRow("单位") = "套" Then
e.DataRow("小计") = e.DataRow("单价")*e.DataRow("数量")
End If
End If
上面的代码 在输入 长 宽 厚 数量 后在调整单位会精确地计算
但是后期调整 长 宽 厚 数量 等数据时 计算不会变化
Select e.DataCol.name
Case "长","宽","厚" ,"数量"
If e.DataCol.Name = "单位" Then
If e.DataRow("单位") ="立方" Then
e.DataRow("小计") = e.DataRow("长") * e.DataRow("宽")*e.DataRow("厚")*0.000000001 * e.DataRow("数量")
ElseIf e.DataRow("单位") ="平方" Then
e.DataRow("小计") = e.DataRow("长") * e.DataRow("宽")*0.000001*e.DataRow("数量")
ElseIf e.DataRow("单位") ="四面套" Then
e.DataRow("小计") = (e.DataRow("长") *2 )+ (e.DataRow("宽") * 2)*0.001*e.DataRow("数量")
ElseIf e.DataRow("单位") ="三面套" Then
e.DataRow("小计") = e.DataRow("长") + (e.DataRow("宽") * 2)*0.001*e.DataRow("数量")
ElseIf e.DataRow("单位") = "件" Then
e.DataRow("小计") = e.DataRow("单价")*e.DataRow("数量")
ElseIf e.DataRow("单位") = "套" Then
e.DataRow("小计") = e.DataRow("单价")*e.DataRow("数量")
End If
End If
End Select
如何让 长 宽 厚 数量 在后期变化后重新计算
请教 刷新的代码
[此贴子已经被作者于2016/8/2 22:42:05编辑过]
加好友 
发短信
Post By：2016/8/2 21:01:00 [显示全部帖子]
