主题：字符串的问题

哈哈，加上红色的部分不就行了吗？

Dim s As String
Dim i As Integer
Dim d As Double
For Each dr As DataRow In DataTables("表A").DataRows
    s = ""
    For i = 0 to Len(dr("第一列"))-1
        if Double.TryParse(dr("第一列").SubString(i,1),d) = False Then
            s = s & d
        End If
        dr("第二列") = s
       Next
Next

另，单字符判断，用下面的知识更好：

单字符判断

类型Char型提供了很多共享方法，用于判断某个字符类别，例如判断某个字符是否是数字：

If Char.IsDigit("1") Then
    Messagebox.Show("这是一个数字！")
End If

部分判断函数：