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

字符串存放在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 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