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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → split分割问题，这段代码为什么只执行光标所在行，而其它行不给执行！

共有2983人关注过本帖树形打印复制链接主题：split分割问题，这段代码为什么只执行光标所在行，而其它行不给执行！

hbfnmxb

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：二尾狐帖子：541 积分：6067 威望：0 精华：0 注册：2008/9/7 20:15:00

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

Post By：2021/12/6 10:22:00 [显示全部帖子]

模仿着写了一段代码，把表“代码库”中的“专业名称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

hbfnmxb

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：二尾狐帖子：541 积分：6067 威望：0 精华：0 注册：2008/9/7 20:15:00

Post By：2021/12/6 10:58:00 [显示全部帖子]

好的，谢谢老师，执行所有行，如何修改这个代码：

我试着修改，结果没有成功。当然是模仿。

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

If DMK.Current IsNot Nothing Then

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)

Output.Show(Tables("代码库").Current("专业名称"))

Else

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

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

End If

老师帮忙改下，不知道在哪里卷住了！！谢谢老师

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