求助，红色代码部分，修改对应列的值后没有计算结果！系统也没有提示报错!
Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
Case "型号"
If dr("型号") = Nothing Then
dr("产品编号")=Nothing
dr("产品分类")=Nothing
dr("门头花")=Nothing
dr("木门基价")=Nothing
dr("型号")=Nothing
dr("塔线型号")=Nothing
dr("门型花")=Nothing
dr("计算公式")=Nothing
End If
Case "洞高","洞宽","产品分类"
Dim dg as Integer = 2100
Dim dk as Integer = 960
If dr("产品分类") = "%复合%" AndAlso dr("洞高") > dg Then
If dr.IsNull("门超尺加价") then
dr("门超尺加价") = Format((dr("洞高")- dg)/100*50,"0.00")
dr.Save() '必须保存一下
Else
dr("门超尺加价") = dr("门超尺加价") + Format((dr("洞高")- dg)/100*50,"0.00")
dr.Save() '必须保存一下
If dr("产品分类") = "%复合%" AndAlso dr("洞宽") > dk Then
If dr.IsNull("门超尺加价") then
dr("门超尺加价") = Format((dr("洞宽")-dk)/100*50,"0.00")
dr.Save() '必须保存一下
Else
dr("门超尺加价") = dr("门超尺加价") + Format((dr("洞宽")- dk)/100*50,"0.00")
dr.Save() '必须保存一下
End If
End If
End If
End If
Case "数量","计算公式"
If dr.IsNull("木门基价")=False AndAlso dr.IsNull("经销商等级")=False AndAlso dr.IsNull("计算公式")=False Then
'If not (dr.IsNull("木门基价") AndAlso dr.IsNull("经销商等级") AndAlso dr.IsNull("计算公式")) Then
dr.Save() '必须保存一下
Dim cmd As new SQLCommand
cmd.C
cmd.CommandText = "Select " & dr("计算公式") & " F rom {YW_销售订单明细} where [_Identify] = " & e.DataRow("_Identify") '根据需要修改主键和表名
dr("木门核算单价") = cmd.ExecuteScalar
dr("金额") = dr("木门核算单价")*dr("数量")
dr.Save() '必须保存一下
Else
dr("木门核算单价") = Nothing
dr.Save() '必须保存一下
End If
End Select
加好友 
发短信
Post By：2020/5/5 16:25:00 [显示全部帖子]
