多列根据条件自动计算，求教DON老师 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

1.本月摊销暂且理解为:合同金额÷月数(不明3,4行的-200及200是如何来的?);

2.不明期初摊销的来历?

3.什么是冲减或补记?专业术语不是人人能理解的!

4.中止合同 ==> 表中如何体现是否中止?

5.本人不大喜欢高调,所以标题最好别专门指明我,这样压力大啊,有问题大家有空有能力都会帮助的.

试试,按钮代码:

Dim n1,n2,y1,M1 As Double

Dim drs As List(of DataRow)

Dim dt1 As DataTable = DataTables("摊销")

Dim ym As String

ym =Forms("窗口1").Controls("ComboBox1").value

y1 =ym.Substring(0,4)

m1 =ym.Substring(5)

dt1.StopRedraw

drs =dt1.Select("项目 > ''" )

For Each dr As DataRow In drs

n1 = (y1-dr("进场日期").year)*12 +m1-dr("进场日期").Month

dr("期初摊销") = dr("合同金额")*n1/dr("月数")

Select Case dr("合同状态")

Case "中止合同"

dr("本月摊销") =0

Case "提前完工"

dr("本月摊销") =dr("合同金额") -dr("期初摊销")

Case "正常摊销"

n2 = dr("合同金额")/dr("月数")

If dr.Isnull("确认日期") OrElse dr("进场日期") =dr("确认日期") Then

dr("本月摊销") = n2

ElseIf dr("进场日期") < dr("确认日期") Then

dr("本月摊销") = n2 -dr("期初摊销")

ElseIf dr("进场日期") > dr("确认日期") Then

dr("本月摊销") = n2*2

End If

End Select

dr("累计摊销") = dr("本月摊销") + dr("期初摊销")

dt1.ResumeRedraw

完善一下:

Dim n1,n2,y1,M1 As Double

Dim dt1 As DataTable = DataTables("摊销")

Dim drs As List(of DataRow) = dt1.Select("项目 > ''")

Dim ym As String = Forms("窗口1").Controls("ComboBox1").value

y1 =ym.Substring(0,4)

M1 =ym.Substring(5)

dt1.StopRedraw

For Each dr As DataRow In drs

n1 = (y1-dr("进场日期").year)*12 +M1-dr("进场日期").Month

dr("期初摊销") = dr("合同金额")*n1/dr("月数")

Select Case dr("合同状态")

Case "中止合同"

dr("本月摊销") =0

Case "提前完工"

dr("本月摊销") = dr("合同金额") -dr("期初摊销")

Case "正常摊销"

n1 = dr("合同金额")/dr("月数")

If dr.Isnull("确认日期") OrElse dr("进场日期")= dr("确认日期") Then

dr("本月摊销") = n1

ElseIf dr("进场日期") < dr("确认日期") Then

dr("本月摊销") = n1 -dr("期初摊销")

Else

n2 = DateDiff("m",dr("确认日期"), dr("进场日期"))

dr("本月摊销") = n1*(n2+1)

End If

End Select

dr("累计摊销") = dr("本月摊销") + dr("期初摊销")

dt1.ResumeRedraw

主题：多列根据条件自动计算，求教DON老师