不是重新生成表头
是把表{"数据1", "数据2"}的"指标1-6"的列标题填入"汇总"表的"条件"列类似5楼代码的"指标项" :
Dim tbs() As String = {"数据1", "数据2"}
Dim tbs_js() As String = {"基数1", "基数2"}
Dim cs1() As String = {"指标1", "指标2", "指标3"}
Dim cs2() As String = {"指标4", "指标5", "指标6"}
Dim ls As new List(Of String())
ls.Add(cs1)
ls.add(cs2)
DataTables("汇总").DataRows.Clear
For i As Integer = 0 To tbs.Length - 1
Dim cs As String() = ls(i)
For j As Integer = 0 To cs.Length - 1
Dim fdr = DataTables("汇总").AddNew
fdr("指标项") = cs(j)
指标项:填的是表{"数据1", "数据2"}的列名
条件:填的是与列名对应的列标题
[此贴子已经被作者于2015/7/5 10:30:57编辑过]