- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]多行记录和多行文本互转 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=126385)
-- 发布时间：2018/10/19 23:44:00
-- [求助]多行记录和多行文本互转
请问如何多行记录（表A）和多行文本（表B）互转
此主题相关图片如下：多行记录转多行文本.png
[此贴子已经被作者于2018/10/19 23:44:48编辑过]
-- 发布时间：2018/10/20 7:54:00
--
For Each s As String In DataTables("表A").GetValues("市")
Dim lst As new List(of String)
For Each dr As DataRow In DataTables("表A").Select("市=\'" & s & "\'")
lst.Add(dr("县区"))
Next
Dim fdr As DataRow = DataTables("表B").AddNew
fdr("市") = s
fdr("县区") = String.join(",",lst.ToArray)
Next
-- 发布时间：2018/10/20 8:53:00
--
表B -》表A
For Each r As Row In Tables("表B").Rows
If r.IsNull("县区") = False
Dim srr() As String = r.IsNull("县区").split(",")
For Each s As String In srr
Dim fdr As DataRow = DataTables("表A").AddNew
fdr("市") = r("市")
fdr("县区") = s
Next
End If
Next
[此贴子已经被作者于2018/10/20 8:54:05编辑过]
-- 发布时间：2018/10/20 15:44:00
--
谢谢。