- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 一行变多行 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=68528)
-- 发布时间：2015/5/19 22:10:00
-- 一行变多行
表a中h列是多值字段，通过，分割
想把表a的数据进行整理后放到临时表中来做目录树源，
如果h列不为空，h列按照每个值一行克隆，行后h列的值=分割的单值，有点绕，比如第1行h列的值为 1，2 处理后变成2行，h列的值分别为1 2
h列为空的直接添加到临时表
-- 发布时间：2015/5/19 22:13:00
--
For Each dr As DataRow In DataTables("表A").Select("第三列 is not null")
For Each s As String In dr("第三列").split(",")
Dim ndr As DataRow = DataTables("表B").AddNew
ndr("第一列") = s
Next
Next
-- 发布时间：2015/5/20 9:18:00
--
非常感谢 大红袍
