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

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

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

don

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

加好友

发短信

等级：八尾狐帖子：1812 积分：12993 威望：0 精华：14 注册：2008/10/11 18:07:00

Post By：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编辑过]

kylin

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

加好友

发短信

F6
等级：狐精帖子：3030 积分：19188 威望：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

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

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

小狐

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

加好友

发短信

等级：三尾狐帖子：734 积分：5645 威望：0 精华：0 注册：2008/9/6 11:22:00

Post By：2008/12/6 12:06:00 [只看该作者]

以下是引用mr725在2008-12-6 0:38:00的发言：

这个不对呀～

此主题相关图片如下：未命名2.jpg

[此贴子已经被作者于2008-12-6 0:38:18编辑过]

大哥，你是不是要求没有达到10列的，要有一个提示吗

小狐

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

加好友

发短信

等级：三尾狐帖子：734 积分：5645 威望：0 精华：0 注册：2008/9/6 11:22:00

Post By：2008/12/6 12:15:00 [只看该作者]

不知道如何用数字直接代替列名

mr725

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

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

Post By：2008/12/6 13:29:00 [只看该作者]

以下是引用小狐在2008-12-6 12:06:00的发言：

大哥，你是不是要求没有达到10列的，要有一个提示吗

谢谢小狐，不是要个提示，是有“-”符号的都要分列填入的c、d、.....l 列里，如果修改、减少、或退掉多入的内容，c、d、.....l 列里也要相应的变化。
11楼don老师的代码ok啦～（不知道要学多久才会写这样的代码，本人笨呀～）
也要谢11楼don老师，和12楼kylin老师的回复。

还想问一下老师们：能用表达式吗？比如c列，怎么写？

[此贴子已经被作者于2008-12-6 13:34:04编辑过]