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

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

共有3442人关注过本帖树形打印复制链接主题：[求助]如何根据线路，拆分路段

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

拆分后路段：北京-淮安，北京-江阴，北京-上海，如何修改此代码，拆分路段为：北京-淮安，淮安-江阴，江阴-上海