主题：插入列

用代码插入列怎么写，帮助中没有插入列的方法介绍

需要在表格中插入列，并设置列标题、一些单元格公式

知道了，遗憾

问一下，设计会计报表软件都是怎么设计，难道要一个月报表就要增加一个表吗？还是有其他途径，本来我的设想是增加一个月报表就插入一列并在单元格设计公式进行计算，这样实现不了，有什么好的办法吗。

我现在是把某一列设计项目，在项目列中设计货币资金、应收账款等科目，你的意思不能这样做，设计一个日期列，然后按报表项目设计列标题，然后再设计一个报表模板，是这样吗

这样表的列会很多，一个报表可能需要几十列甚至一百多列

没有办法写代码，也就没有办法用命令或菜单的方法实现，只能后一种方法了

 

由于需要增加的很多，我想法是把需要添加列的项目写一个表中，然后使用代码在需要的表中修改标题及数据类型，参考了例子中的一段代码，有两个问题，一是这段代码还有问题不能执行，不知道怎么改；二是如何从表中提取数据然后转另外一表的列标题

Dim cls() As String = {"国家","人口","面积","语言","宗教","洲"} '指定要显示的各列
Dim wds() As Integer = {100,100,130,80,80,80} '定义列宽
For i As Integer = 0 To  cls.Length - 1
    Dim c As List(of DataCol )=DataTables("资产表").DataCols
    c.Name = cls(i) '指定列名
    c.Text = cls(i)'指定列标题
    c.Width = wds(i) '指定列宽
Next

例子中是DataTables("资产表").DataCols("第一列").Caption \DataTables("资产表").DataCols("第二列").Caption等以此类推， 我想用i代替列名称，可以吗？这做可以简化也便于维护

Dim cls() As String = {"国家","人口","面积","语言","宗教","洲"} '指定要显示的各列
Dim wds() As Integer = {100,100,130,80,80,80} '定义列宽
For i As Integer = 0 To  cls.Length - 1
        DataTables("资产表").DataCols(i).Caption = cls(i)

Next

另外列的数据类型怎么设置