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