主题：求助 汇总表

做了个"汇总"表

If MainTable.Name = "汇总" Then
     Dim i1 As Short
    For i1 = 3 To 30 Step 1
         Dim n1 As Short=Tables("数据1").Rows.Count                              
        Tables("汇总").Position =i1-3
        Tables("汇总").Current("指标") =Tables("数据1").Cols(i1).Name
        Tables("汇总").Current("条件") =Tables("数据1").Cols(i1).Caption 
    Next
       DataTables("汇总").DataCols("指标").RaiseDataColChanged()

End If

后想把"数据2"，"数据,3"也增加到"汇总"表，不知怎样改代码？

请老师帮忙！