Select Case e.DataCol.name
Case "模切","瓦楞","灰板","数量","模切新版费","K数"
Dim mq As String = iif(e.DataRow("模切")=True,"模切",iif(e.DataRow("瓦楞")=True,"瓦楞",iif(e.DataRow("灰板")=True,"灰板", "")))
If mq = "" Then
e.DataRow("模切费") = Nothing
Else
mq = iif(mq="模切",IIF(e.DataRow("数量")<20000, "手动机", "自动机"),mq)
Dim fdr4 As DataRow = DataTables("模切").find("盒子大小K <= " & e.DataRow("K数") & " and 类型 = '" & mq & "'", "盒子大小K desc")
If fdr4 IsNot Nothing Then
e.DataRow("模切费") = IIF(e.DataRow("模切新版费")>0,fdr4("装版费") + e.DataRow("数量")* fdr4("单价")+e.DataRow("模切新版费")*fdr4("系数"), fdr4("装版费") + e.DataRow("数量")* fdr4("单价")+fdr4("旧版费"))
End If
End If
End Select