字符串存放在A列 ，如果字符串的第一个字母是1-9那么在B列中显示1-9，如果字符串的第一个字母是U在B列显示U，其他的显示0

如何实现

自己的问题自己解答

Dim dr As DataRow = e.DataRow
If e.DataCol.Name = "A" Then
      If dr("A").StartsWith("1") Then
      dr("B") = 1
    End If
End If

也可以截取第一个字母来判断！

Dim a As String = "U123456"
If a.Chars(0) Like "#" Then
    output.show(a.Chars(0))
ElseIf a.Chars(0) = "u" Then
    output.show(a.Chars(0))
Else
    output.show("0")
End If

来个全码

Dim dr As DataRow = e.DataRow
 If dr("A").StartsWith("1") Then
        dr("B") = 1
    ElseIf dr("A").StartsWith("2") Then
        dr("B") = 2
    ElseIf dr("A").StartsWith("3") Then
        dr("B") = 3
    ElseIf dr("A").StartsWith("4") Then
        dr("B") = 4
    ElseIf dr("A").StartsWith("5") Then
        dr("B") = 5
    ElseIf dr("A").StartsWith("6") Then
        dr("B") = 6
    ElseIf dr("A").StartsWith("7") Then
        dr("B") =7
    ElseIf dr("A").StartsWith("8") Then
        dr("B") = 8
    ElseIf dr("A").StartsWith("9") Then
        dr("B") = 9
    ElseIf dr("A").StartsWith("U") Then
        dr("B") = "u"
    Else
        dr("B") = 0
    End If

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