以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  [求助] 记录拆分问题  (http://foxtable.net/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 --   谢谢两位