在本表统计得不偿失啊。参考下面的代码
With Tables("表A")
.MergeMode = MergeModeEnum.Standard '标准合并模式
.MergeCols.Clear() '清除原来的合并列
.MergeCols.Add("项目") '加入要合并的列
.MergeCols.Add("统计项目")
.AllowMerge = True '启用合并模式
End With
Dim t As Table = Tables("表A")
Dim ls_xiangmu As List(Of String) = t.DataTable.GetUniqueValues("项目 is not null", "项目")
Dim dic_idx As New Dictionary(Of Integer, String)
Dim ls_idx As New List(Of Integer)
For Each xiangmu As String In ls_xiangmu
Dim idx As Integer = t.FindRow("项目 = '" & xiangmu & "'", 0, False)
If idx > -1 Then
ls_idx.Add(idx)
dic_idx.Add(idx, xiangmu)
End If
Next
ls_idx.Sort()
Dim nr As Row = t.AddNew
nr("项目") = "总合计"
nr("统计项目") = "合计"
ls_idx.Add(t.Rows.Count)
For i As Integer = ls_idx.Count - 2 To 0 Step -1
Dim xm As String = dic_idx(ls_idx(i))
t.Position = ls_idx(i+1)
Dim r As Row = t.InsertNew
r("项目") = xm
r("统计项目") = "合计"
Next