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

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  字符拆分  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=132524)

--  作者：爱相随
--  发布时间：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))
Next
End If

--  作者：fangdejin
--  发布时间：2019/3/24 10:44:00
--
0到3是四列吧

--  作者：有点甜
--  发布时间：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