新设置了凹凸的代码，不灵了？另外，我想增加条件数量大于等于20000个时按自动机的单价核算，小于20000个时按手动机单价核算，该怎么修改代码？Select Case e.DataCol.name
Case "数量", "K数", "凹凸", "凹凸新版费"
Dim at As String = iif(e.DataRow("凹凸") = True, "凹凸", "")
If at = "" Then
e.DataRow("凹凸费") = Nothing
Else
Dim fdr2 As DataRow = DataTables("凹凸").find("盒子大小K <= " & e.DataRow("K数") & " and 类型 = '" & at & "'", "盒子大小K desc")
If fdr2 IsNot Nothing Then
e.DataRow("凹凸费") = IIF(e.DataRow("凹凸新版费")>0,fdr2("装版费") + e.DataRow("数量")* fdr2("单价")+e.DataRow("凹凸新版费")*fdr2("系数"), fdr2("装版费") + e.DataRow("数量")* fdr2("单价")+fdr2("旧版费"))
End If
End If
End Select
加好友 
发短信
Post By：2017/11/2 0:49:00 [只看该作者]
