主题：条件取值

datacolchanged事件

Select Case e.DataCol.name
    Case "收入支出", "交易详细"
        Dim str As String = e.DataRow("交易详细")
        e.DataRow("对方账号") = Nothing
        If str > "" Then
            Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "[0-9]{10,}")
            If mc.count >= 2 Then
                If e.DataRow("收入支出") = "收入" Then
                    e.DataRow("对方账号") = mc(0).value
                ElseIf e.DataRow("收入支出") = "支出" Then
                    e.DataRow("对方账号") = mc(1).value
                End If
            End If
        End If
End Select

Split 函数，只能根据单个字符分割。

你可以试试

Dim Parts() As String = Tel.Replace("账号 ", "@").split("@")