老师，给我看一下这个代码，我的一个系统里今天改了这个代码，是会员销售，普通销售 两种方式金额的算法，写好后，明天表商品类别的折扣也提取正确，可不知为什么，金额却无法相乘，注释掉添加的代码， 数量可以乘以单价，反复的在找问题，最后弄得项目也给崩溃了，已经发给客服在处理，老师你看一下哪里有问题了，竟能造成这么大的问题。
Case "数量","单价"
If e.DataRow.Isnull("数量") And e.DataRow.Isnull("单价") Then
e.DataRow("金额")=Nothing
Else
If e.DataRow("销售类型")= "普通销售" Then
e.DataRow("金额")=e.DataRow("单价")*e.DataRow("数量")
ElseIf e.DataRow("销售类型")= "会员销售" Then
Dim r As Row = Tables("销售明细表").Current
Dim dr1 As DataRow
dr1 = DataTables("会员折扣表").Find("商品类别='" & r("商品类别") & "'")
If dr1 IsNot Nothing Then
e.DataRow("折扣") = dr1("折扣")
Else
e.DataRow("折扣") = 1
End If
e.DataRow("金额")=e.DataRow("单价")*e.DataRow("数量")*e.DataRow("折扣")
End If
End If
加好友 
发短信
Post By：2020/8/10 16:54:00 [只看该作者]
