主题：取数据的问题

 下面代码，截取第一个数字之前的字符。

For Each r As Row In Tables("表B").Rows
    Dim data As String = r("第一列")   
    Dim i As Integer = 0
    For i = 0 To data.Length - 1
        Dim temp As Integer
        If Integer.TryParse(data(i), temp) Then
            Exit For
        End If
    Next
    data = data.SubString(0, i)
    r("第二列") = data
Next

 如果你希望在输入第一列之后，自动填充第二列的数据，添加下面代码到DataColChanged事件中

If e.DataCol.Name = "第一列" Then
    Dim data As String = e.DataRow("第一列")  
    Dim i As Integer = 0
    For i = 0 To data.Length - 1
        Dim temp As Integer
        If Integer.TryParse(data(i), temp) Then
            Exit For
        End If
    Next
    data = data.SubString(0, i)
    e.DataRow("第二列") = data
End If