主题：请教个问题：

一张统计表中有一列有100行数据，能不能转化为10列10行数据。请大神提供思路。

 

 可以，动态添加列，然后赋值进去就行。

 

 比如

 

For i As Integer = 1 To 10
    If DataTables("表A").DataCols.Contains("列" & i) = False
        DataTables("表A").DataCols.Add("列" & i, Gettype(String))
    End If
Next

能不能自动生成这种格式的数据呢？

此主题相关图片如下：qq图片20141224123902.jpg

我基础表的数据格式是这样的
此主题相关图片如下：qq图片20141224124302.jpg

 例子发上来。

就是要把 第二个图片上的格式 变成 第一个图片上的格式 。

 例子发上来。

 

我有个表格：是这样的有一列是车号（七位数的），后面一列是吨位（两位数），转换成一行数据，格式是这样的：车号1/吨位1，车号2/吨位2，。。。。。类似的格式。可以不？

 

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

这个代码不可以啊。我是想这样设计：有个基础表的数据格式是每行都有“车号"和”标重“（格式如四楼），以此为基础生成一张统计表，能够把每行的车号标重汇总成一张标准的表（格式例如三楼）。请问有没有什么办法呢？