基本数据整理之竖表转横标！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

各位老师，周末我又来打扰各位了！

很多传统工作用的表格不规范，不标准，第一步把传统数据导入，然后标准化这很重要。

下图，就是传统的行程导入后的表a，我想把他转成表b，

我对基本的循环输入的语句感到还是很难，有请各位大师不吝指教！
图片点击可在新窗口打开查看

此主题相关图片如下：未标题-122 拷贝.jpg

这是table

下载信息 [文件大小：下载次数： ]
点击浏览该文件:行程录入.table

http://www.foxtable.com/webhelp/index.htm?page=2965.htm

http://www.foxtable.com/help/index.htm?page=0679.htm

这两个例子，我已看，感觉还是不同

崇拜的眼神！感谢老师每次都不厌其烦的指导。

我想破脑袋，老师却只要寥寥数语，这就是差距！

@有点色老师后面难道有多少列，就需要定义多少个str吗？

Dim dt1 As DataTable = DataTables("表A")

Dim dt2 As DataTable = DataTables("表B")

Dim ndr As DataRow = dt2.AddNew

ndr("线路编号名称") = dt1.DataRows(0)("大类")

Dim str As String = ""

Dim str1 As String = ""

Dim str2 As String = ""

Dim str3 As String = ""

Dim str4 As String = ""

Dim str5 As String = ""

For Each dr As DataRow In dt1.Select("大类 = '行程特色'")

str &= dr("第一列") & vbcrlf

ndr("行程特色") = str

For Each dr As DataRow In dt1.Select("大类 = '报名须知'")

str1 &= dr("第一列") & vbcrlf

ndr("报名须知") = str1

For Each dr As DataRow In dt1.Select("大类 = '住宿标准'")

str2 &= dr("第一列") & vbcrlf

ndr("住宿标准") = str2

For Each dr As DataRow In dt1.Select("大类 = '旅游交通'")

str3 &= dr("第一列") & vbcrlf

ndr("旅游交通") = str3

For Each dr As DataRow In dt1.Select("大类 = '用餐标准'")

str4 &= dr("第一列") & vbcrlf

ndr("用餐标准") = str4

原来如此，我写了40行。

太感谢了，有点色老师早点休息!

主题：基本数据整理之竖表转横标！