Dim dr As DataRow = e.DataRow If e.DataCol.Name = "A" Then If dr.IsNull("A") = False Then If IsNumeric(dr("A").SubString(0,1)) Then If dr("A").SubString(0,1) <> 0 Then dr("B") = dr("A").SubString(0,1) Else dr("B") = 0 End If Else If dr("A").SubString(0,1) = "U" Then dr("B") = "U" Else dr("B") = 0 End If End If End If End If
|