Select Case
e.DataCol.Name
Case "溶解氧L","高锰酸盐指数L","五日生化需氧量L","氨氮L","石油类L","挥发酚L"
If e.DataRow.IsNull(e.DataCol.Name) =
False Then
If
e.NewValue.Contains("L") Then
e.DataRow(e.DataCol.Name.Replace("L","")) =
e.NewValue
Else
e.DataRow(e.DataCol.Name.Replace("L",""))
= val(e.NewValue) / 2
End If
End If
End Select
If e.DataCol.Name
= "溶解氧L" Then
If e.NewValue.Contains("L") Then
e.DataRow("溶解氧") =
val(e.NewValue) / 2
Else
e.DataRow("溶解氧") = e.NewValue
End If
End If
If e.DataCol.Name
= "高锰酸盐指数L" Then
If e.NewValue.Contains("L") Then
e.DataRow("高锰酸盐指数") =
val(e.NewValue) / 2
Else
e.DataRow("高锰酸盐指数") =
e.NewValue
End If
End If
If e.DataCol.Name
= "五日生化需氧量L" Then
If e.NewValue.Contains("L") Then
e.DataRow("五日生化需氧量") =
val(e.NewValue) / 2
Else
e.DataRow("五日生化需氧量") =
e.NewValue
End If
End If
If e.DataCol.Name
= "氨氮L" Then
If e.NewValue.Contains("L") Then
e.DataRow("氨氮") =
val(e.NewValue) / 2
Else
e.DataRow("氨氮") = e.NewValue
End If
End If
If e.DataCol.Name
= "石油类L" Then
If e.NewValue.Contains("L") Then
e.DataRow("石油类") =
val(e.NewValue) / 2
Else
e.DataRow("石油类") = e.NewValue
End If
End If
加好友 
发短信
Post By：2016/8/5 9:30:00 [只看该作者]
此主题相关图片如下：3.png