[求助]分列代码怎么写？split - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]分列代码怎么写？split

共有27222人关注过本帖树形打印复制链接主题：[求助]分列代码怎么写？split

kylin

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

加好友

发短信

F6
等级：狐精帖子：3036 积分：19223 威望：0 精华：2 注册：2008/9/1 7:50:00

Post By：2008/12/5 16:33:00 [显示全部帖子]

Split

用指定的分隔符将字符串分隔成一个字符串数组。

语法：

Split(Value)

Value: 用于分割字符串的字符。

例如：

Dim Multi As String = "ab|cd|ef"
Dim Values() as String
Values = Multi.split("|")
For Index As Integer = 0 To Values.Length - 1
Output.Show(Values(Index))
Next

在命令窗口执行上述代码之后，输出结果是：

ab
cd
ef

kylin

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

加好友

发短信

F6
等级：狐精帖子：3036 积分：19223 威望：0 精华：2 注册：2008/9/1 7:50:00

Post By：2008/12/5 16:35:00 [显示全部帖子]

建议在datacolchanged事件中
if e.datacol.name="B" then

   Dim Multi As String = e.datarow("B")
   Dim Values() as String
   Values = Multi.split("|")
   e.datarow("B")=Values(0)
   e.datarow("C")=Values(1)
   e.datarow("D")=Values(2)
end if

[此贴子已经被作者于2008-12-5 16:40:56编辑过]

kylin

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

加好友

发短信

F6
等级：狐精帖子：3036 积分：19223 威望：0 精华：2 注册：2008/9/1 7:50:00

Post By：2008/12/6 8:52:00 [显示全部帖子]

以下是引用don在2008-12-6 1:30:00的发言：

if e.datacol.name="B" then
     Dim Cns As String() = {"C","D","E","F","G","H","I","J","K","L"}
     Dim dr As DataRow = e.datarow
     dim i as integer

     For i = 0 to 9
          dr(Cns(i)) = Nothing
     Next

     if dr("B") IsNot Nothing then
            For i = 0 to dr("B").split("-").Length-1
                  dr(Cns(i)) = dr("B").split("-")(i)
            Next
     End if
End if

[此贴子已经被作者于2008-12-6 1:32:29编辑过]

初步看应该没有问题，可以使用

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

主题：[求助]分列代码怎么写？split