字符拆分 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 字符拆分

共有2588人关注过本帖树形打印复制链接主题：字符拆分

爱相随

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

加好友

发短信

等级：四尾狐帖子：932 积分：6531 威望：0 精华：0 注册：2014/6/25 10:48:00

字符拆分

Post By：2019/3/24 0:13:00 [只看该作者]

老师你好，我要将下列字符串222110\应交税费\车船税\，根据“\"符号拆分，分别填列到对应的列中去，如下列代码，可不行，请老师帮忙，谢谢

If e.DataCol.Name = "科目代码" Then '发生变化的是产品编号吗?

'在产品表找出该产品

Dim dr As DataRow

Dim Multi As String = e.DataRow("科目名称")

Dim Values() As String

Values = Multi.split("\")

For Index As Integer = 0 To 3

dr("一级科目") = Multi.Split(Values(Index(1)))

dr("二级科目") = Values(Index(2))

dr("三级科目") = Values(Index(3))

End If

fangdejin

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

加好友

发短信

等级：一尾狐帖子：411 积分：4321 威望：0 精华：0 注册：2018/7/18 21:08:00

Post By：2019/3/24 10:44:00 [只看该作者]

0到3是四列吧

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/3/24 12:34:00 [只看该作者]

If e.DataCol.Name = "科目代码" Then '发生变化的是产品编号吗?
    '在产品表找出该产品
    Dim dr As DataRow
    Dim Multi As String = e.DataRow("科目名称")
    Dim Values() As String
    Values = Multi.split("\")
    dr("一级科目") = Values(0)
    dr("二级科目") = Values(1)
    dr("三级科目") = Values(2)
End If

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

主题：字符拆分