Foxtable(狐表)用户栏目专家坐堂 → [求助]如何根据线路,拆分路段


  共有3417人关注过本帖树形打印复制链接

主题:[求助]如何根据线路,拆分路段

帅哥哟,离线,有人找我吗?
wflqf
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:127 积分:1680 威望:0 精华:0 注册:2020/4/19 19:49:00
[求助]如何根据线路,拆分路段  发帖心情 Post By:2020/9/15 14:46:00 [只看该作者]

 线路:北京-淮安-江阴-上海,拆分为路段:北京-淮安,淮安-江阴,江阴-上海

用以下代码:
Dim dt1 As DataTable = DataTables("表A")
Dim dt2 As DataTable = DataTables("表B")
For Each dr As DataRow In dt1.Select("")
    Dim ls1 As new List(Of String)
    ls1.AddRange(dr("线路").split("-"))
    For i As Integer = 1 To ls1.count -1
        Dim ndr As DataRow = dt2.AddNew
        ndr("日期") = dr("日期")
        ndr("线路") = dr("线路")
        ndr("路段") = ls1(0) & "-" & ls1(i)
    Next
Next
拆分后路段:北京-淮安,北京-江阴,北京-上海,如何修改此代码,拆分路段为:北京-淮安,淮安-江阴,江阴-上海

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110648 积分:563148 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/9/15 15:05:00 [只看该作者]

Dim s As String = "北京-淮安-江阴-上海"
Dim arr() As String = s.Split("-")
For i As Integer = 1 To arr.Length - 1
Output.Show(arr(i-1) & "-" & arr(i))
Next


 回到顶部
帅哥哟,离线,有人找我吗?
wflqf
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:127 积分:1680 威望:0 精华:0 注册:2020/4/19 19:49:00
  发帖心情 Post By:2020/9/15 15:14:00 [只看该作者]

图片点击可在新窗口打开查看我这脑袋来,直接晕了,这么简单的问题,居然,,,

 回到顶部