以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  取数据的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=23257)
--  作者：hnzcz
--  发布时间：2012/9/7 8:30:00
--  取数据的问题
我在第一列中有数据
AF10
B203
N304
NH3500

我想要在第二列中实现
当第一列中有英文字母时取英文字母
到第二列
AF
B
N
NH
--  作者：lin_hailun
--  发布时间：2012/9/7 8:47:00
--  
 下面代码，截取第一个数字之前的字符。

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
--  作者：lin_hailun
--  发布时间：2012/9/7 9:05:00
--  
 如果你希望在输入第一列之后，自动填充第二列的数据，添加下面代码到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
--  作者：hnzcz
--  发布时间：2012/9/7 9:18:00
--  谢谢 已经解决
谢谢 已经解决