主题：[求助]字符串的第一个字母

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
         dr("B") = dr("A").SubString(0,1)
      ElseIf dr("A").SubString(0,1) = "U" Then
           dr("B") = "U"
        Else
           dr("B") = 0
      End If
End If