主题：求助

列为：A单位本期  A单位上期   B单位本期  B单位上 期  ............

行为月份 如 1月 2月 3月......

这样 一张数据表，  要做的是每增加一行（月份），本月有上期数据=上月的本期数。 每个 单位都能自动取上月的本期数作为当月的上期数。

代码如何写？

参照流水帐写出过，也成功过，但是要每个单位都写上代码（计算公式），这样单位多就麻烦 了，有没有更简单的方法，能自动把所有列的 上期数自动

按上面的方法设计了一个电表抄表计算。二个数据表

 表A为各电表编号 全数字，如1123，列名为：编号、价格

表B：列名为：  月份   D1123dj    d1124dj  d1125dj .........

现在要每增加一个月份（增加一行）后，表B的对应的单价能从表A中获取。

因表B列名不能以数字开头，加了一个“D”，因为以后还有相应倍率的列行增加，所以单价后面加了个“ DJ"

现在写了如下代码，提示未将对象引用设置到对象实例，进入死环，请指教

If e.DataCol.name = "月" Then

    If e.DataCol.name Like "*dj*"  Then

    Dim name1 As String = Left(e.DataCol.Name.Replace("dj", ""),1) '去掉后二位dj和第一位字符得到编号
    Dim drb As DataRow
                drb = DataTables("表A").Find("编号 = 'name1'") '找到表识别中编号为name1的行
                e.DataRow( "d"  &  name1 & "dj")  = drb("价格")   '自动从"表识别"取数
     End if 

end if

以上 一个一个取数我已经会做的，现在想快速点，因为表B的电表列名去掉第一个字符和最后二个字符 就是表A的编号，有这个关系在，想直接一次性解决，减少代码，因为电表有很多。