Select Case e.DataCol.name
Case "Lwg12","Lwg18","Lwg20","Lwg22","Lwg25","Lwg28","Lwg32" ',"lwg16"
Dim sksumlwg As Double = 0
Dim n1() As String = {"Lwg12","Lwg18","Lwg20","Lwg22","Lwg25","Lwg28","Lwg32"}
For Each n As String In n1
If e.DataTable.DataCols.contains(n)
sksumlwg = sksumlwg + e.DataRow(n)
End If
Next
e.DataRow("Sjlwg") = sksumlwg
Case "Gyg12","Gyg10","Gyg8","Gyg6"
Dim sksumgyg As Double = 0
Dim n2() As String = {"Gyg12","Gyg10","Gyg8","Gyg6"}
For Each n As String In n2
If e.DataTable.DataCols.contains(n)
sksumgyg = sksumgyg + e.DataRow(n)
End If
Next
e.DataRow("Sjgyg") = sksumgyg
End Select
If e.DataCol.name = "Jianglwg" Then
e.DataRow("jianglwg") = e.DataRow("Lwg32") + e.DataRow("lwg28") + e.DataRow("Lwg25") - e.DataRow("LwgN4")
e.DataRow("jianggyg") = e.DataRow("Gyg10") - e.DataRow("GygN7")
e.DataRow("jiangj") = e.DataRow("jianglwg") + e.DataRow("jianggyg")
End If
Select Case e.DataCol.name
Case "Skzd"
If e.DataRow("Beizu") <> "重复冲桩" Then
e.DataRow("Zjfl") = 3.14 * e.DataRow("zhuangchang") * e.DataRow("zhuangjing")/2 * e.DataRow("zhuangjing")/2
End If
Case "Zhuangjing" 从这里开始代码不执行，求助
If e.DataRow("Zhuangjing") = 1.6 Then
e.DataRow("Zjflqe") = e.DataRow("Zjfl") * 230
Else If e.DataRow("Zhuangjing") = 2.2 Then
e.DataRow("Zjflqe") = e.DataRow("zjfl") * 197.4
End If
End Select
加好友 
发短信
Post By：2018/9/2 16:02:00 [显示全部帖子]
