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

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

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

hbfnmxb

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

加好友

发短信

等级：二尾狐帖子：541 积分：6061 威望：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

有点蓝

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

加好友

发短信

等级：超级版主帖子：107783 积分：548260 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/12/6 10:24:00 [只看该作者]

current就是当前行啊，有啥问题：http://www.foxtable.com/webhelp/topics/0445.htm

hbfnmxb

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

加好友

发短信

等级：二尾狐帖子：541 积分：6061 威望：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

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

z769036165

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

加好友

发短信

等级：三尾狐帖子：758 积分：5408 威望：0 精华：0 注册：2012/10/5 21:53:00

Post By：2021/12/6 11:44:00 [只看该作者]

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

for each dr as row in Tables("代码库").rows

Dim s1() As String=dr("专业名称A").split(sps)

If s1.length >= 2 Then

dr("专业名称")=s1(0)

dr("原始专业名称")=s1(1)

Output.Show(dr("专业名称"))

Else

dr("专业名称")=Nothing

dr("原始专业名称")=Nothing

End If

有点蓝

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

加好友

发短信

等级：超级版主帖子：107783 积分：548260 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/12/6 11:47:00 [只看该作者]

http://www.foxtable.com/webhelp/topics/1438.htm

下一主题 >> << 上一主题

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