- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 请教个问题： (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=62027)
-- 发布时间：2014/12/24 12:03:00
-- 请教个问题：
一张统计表中有一列有100行数据，能不能转化为10列10行数据。请大神提供思路。
-- 发布时间：2014/12/24 12:07:00
--
可以，动态添加列，然后赋值进去就行。
比如
For i As Integer = 1 To 10
If DataTables("表A").DataCols.Contains("列" & i) = False
DataTables("表A").DataCols.Add("列" & i, Gettype(String))
End If
Next
-- 发布时间：2014/12/24 12:38:00
--
能不能自动生成这种格式的数据呢？
此主题相关图片如下：qq图片20141224123902.jpg
-- 发布时间：2014/12/24 12:42:00
--
我基础表的数据格式是这样的
此主题相关图片如下：qq图片20141224124302.jpg
-- 发布时间：2014/12/24 14:07:00
--
例子发上来。
-- 发布时间：2014/12/24 14:28:00
--
就是要把 第二个图片上的格式 变成 第一个图片上的格式 。
-- 发布时间：2014/12/24 14:28:00
--
例子发上来。
-- 发布时间：2014/12/24 14:30:00
--
我有个表格：是这样的有一列是车号（七位数的），后面一列是吨位（两位数），转换成一行数据，格式是这样的：车号1/吨位1，车号2/吨位2，。。。。。类似的格式。可以不？
-- 发布时间：2014/12/24 14:33:00
--
For i As Integer = 1 To 10
If DataTables("表A").DataCols.Contains("列" & i) = False
DataTables("表A").DataCols.Add("列" & i, Gettype(String))
End If
Next
Dim idx As Integer = 0
Dim ndr As DataRow
For Each dr As DataRow In DataTables("表B").DataRows
If idx Mod 10 = 0 Then
ndr = DataTables("表A").AddNew
idx = 0
End If
ndr("列" & (idx+1)) = dr("第一列") & "/" & dr("第二列")
idx += 1
Next
-- 发布时间：2014/12/27 9:43:00
--
这个代码不可以啊。我是想这样设计：有个基础表的数据格式是每行都有“车号"和”标重“（格式如四楼），以此为基础生成一张统计表，能够把每行的车号标重汇总成一张标准的表（格式例如三楼）。请问有没有什么办法呢？