split分割问题，这段代码为什么只执行光标所在行，而其它行不给执行！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

模仿着写了一段代码，把表“代码库”中的“专业名称A”列，以{"(","【"}两个标志分割，分割后前部分填入到专业名称列中，后部分填入到“原始专业名称”列中，但，这段代码只有光标到哪行，才执行哪行，不问题出在哪里？老师给看一下，谢谢老师！

Dim DMK As Table = Tables("代码库")

Dim SP As String = DMK.current("专业名称A")

Dim sps() As Char = {"(","【"}

Dim s1() As String=SP.split(sps)

If s1.length >= 2 Then

Tables("代码库").current("专业名称")=s1(0)

Tables("代码库").current("原始专业名称")=s1(1)

Else

Tables("代码库").current("专业名称")=Nothing

Tables("代码库").current("原始专业名称")=Nothing

End If

主题：split分割问题，这段代码为什么只执行光标所在行，而其它行不给执行！