- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]列数值转到行数值 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=74620)
-- 发布时间：2015/9/15 16:27:00
-- [求助]列数值转到行数值
请教如何实现列数值转到行数值，即表A实际表B效果
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:产品进度表.table |
-- 发布时间：2015/9/15 17:27:00
--
Dim strs As List(Of String)
strs =DataTables("表A").GetValues("第一列","第一列 is not null")
Dim Values() As String
Dim dr As DataRow
For Each s As String In strs
Values = DataTables("表A").GetComboListString("第二列","第一列 = \'" & s & "\'").Split("|")
dr = DataTables("表B").AddNew()
dr("第一列") = s
For i As Integer = 0 To Values.Length - 1
dr(Tables("表B").Cols(i+1).Name) = Values(i)
Next
Next
-- 发布时间：2015/9/15 17:36:00
--
经测试，问题已解决，太感谢了！