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

A列为"a9963321 北京某公司"，需要通过表达式形成B列为a996334，C列为北京某公司。也就是把A列通过中间的空格分成B 和C哪个老师指导一下着急用的谢谢

Dim Parts1() As String = CurrentTable.Current("第一列").Split(" ")
For j As Integer = 0 To Parts1.Length - 1
CurrentTable.Current("第二列")=Parts1(0)
CurrentTable.Current("第三列")=Parts1(1)
next

Dim a As String  = "a9963321 北京某公司"
Dim Values() As String
Values=a.Split(" ")
Dim Index As Integer = Values.Length
 Output.Show(Values(0))

在命令窗口里执行

ljz,这个代码放在什么地方

命令窗口里

泡泡,A列有1万多行，每个行都是这么个模式，但是代码和公司名称不同，这个房在窗口里是处理哪行的呀，还是所有的行

在表的afterload应该可以。

我把他放在了afterload里，整个只有一行拆分成指定的字段，其他的都没有拆分

表的datacolchanged事件中

if e.datacol.name = "A列"

dim dr as datarow = e.datarow

if dr.isnull("A列") then

  dr("B列") = nothing

  dr("C列") = nothing

else

  dr("B列") = dr("A列").split(" ")(0)

  dr("C列") = dr("A列").split(" ")(1)

end if

end if

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

 

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