主题：这个表达式列该怎么写

做个按钮，或者在命令窗口执行一次：

For Each dr As DataRow In DataTables("表A").DataRows
    Dim vals() As String = dr("第一列").split(" ")
    If vals.Length = 2 Then
        dr("第二列") = vals(0)
        dr("第三列") = vals(1)
    End If
Next