以文本方式查看主题

-  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=109514)

--  作者:xl
--  发布时间:2017/11/13 21:18:00
--  [求助] 记录拆分问题
[求助]  记录拆分问题?
根据《原始数据》中的“拆分列”,拆分成《拆分效果》中的记录(即一条记录拆分成许多条记录)。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table


--  作者:y2287958
--  发布时间:2017/11/13 22:10:00
--  
Dim t1 As Date = Date.Now
DataTables("拆分效果").StopRedraw
DataTables("拆分效果").datarows.Clear
For Each dr As DataRow In DataTables("原始数据").DataRows
    For Each s As String In dr("拆分列").Replace("///","///@").Split("@")
        Dim adr As DataRow = DataTables("拆分效果").AddNew
        adr("班级") = dr("班级")
        adr("拆分列") = s
    Next
Next
DataTables("拆分效果").ResumeRedraw
MessageBox.Show("计算结束, 耗时: " & (Date.Now - t1).TotalSeconds & "秒")

--  作者:有点甜
--  发布时间:2017/11/13 23:19:00
--  
Dim t1 As Date = Date.Now
DataTables("拆分效果").StopRedraw
DataTables("拆分效果").datarows.Clear
For Each dr As DataRow In DataTables("原始数据").DataRows
    For Each s As String In dr("拆分列").Replace("///","@").Split("@")
        Dim adr As DataRow = DataTables("拆分效果").AddNew
        adr("班级") = dr("班级")
        adr("拆分列") = s
    Next
Next
DataTables("拆分效果").ResumeRedraw
MessageBox.Show("计算结束, 耗时: " & (Date.Now - t1).TotalSeconds & "秒")

--  作者:xl
--  发布时间:2017/11/14 12:08:00
--  
谢谢两位