DON老师，再帮我精简一段代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

意思是，月份数值有变动时，则自动求和（不想用表达式，不能导出，特别是我把表放到另一个系统时不方便迁移）

Select Case e.DataCol.Name

Case "TX2013年01月","TX2013年02月","TX2013年03月","TX2013年04月","TX2013年05月","TX2013年06月","TX2013年07月","TX2013年08月","TX2013年09月","TX2013年10月","TX2013年11月","TX2013年12月","TX2014年01月","TX2014年02月","TX2014年03月","TX2014年04月","TX2014年05月","TX2014年06月","TX2014年07月","TX2014年08月","TX2014年09月","TX2014年10月","TX2014年11月","TX2014年12月"

Dim er As DataRow = e.DataRow

If e.NewValue<>e.OldValue Then

er("TX2013年合计")=er("TX2013年01月")+er("TX2013年02月")+er("TX2013年03月")+er("TX2013年04月")+er("TX2013年05月")+er("TX2013年06月")+er("TX2013年07月")+er("TX2013年08月")+er("TX2013年09月")+er("TX2013年10月")+er("TX2013年11月")+er("TX2013年12月")

er("TX2014年合计")=er("TX2014年01月")+er("TX2014年02月")+er("TX2014年03月")+er("TX2014年04月")+er("TX2014年05月")+er("TX2014年06月")+er("TX2014年07月")+er("TX2014年08月")+er("TX2014年09月")+er("TX2014年10月")+er("TX2014年11月")+er("TX2014年12月")

End If

End Select

谢谢LSY，像这种不能自动加列的摊销表，涉及到列变动，如何做才好？

或者设置为：一个月份ComBox按钮，一个表，有期初金额，本月摊销金额，累计摊销金额，本月摊销=合同金额/月份数，当选择某个月份时，自动列出这个月份的摊销金额及期初、累计金额，这样行不？

谢谢狐爸、DON、jspta老师

报表？这倒是一个好主意，谢谢DON老师指点。不过，能根据起算日期计算摊销金额吗？还有，如果日后调整怎么办？

例如：

下面这个例子如何做自动摊销？

此主题相关图片如下：1.png

下载信息 [文件大小：下载次数： ]
点击浏览该文件:摊销.table

DON老师，谢谢您的热心指导！

就是上面那个表中当月份变化时，“摊销期初”、“本月摊销”、“累计摊销”几列数值怎么自动计算出来？

主题：DON老师，再帮我精简一段代码