主题：我有一个资产入库的窗口，请问累计折旧如何计算？

我的是开发板的

画虎，画皮画面难画骨。骨头我已经画好了，皮和面你自己画了。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:资产入库.rar

还是没有反应啊？

你看datacolchanged中的代码。

我把代码改成这样 还是没有反应。

Select e.DataCol.name
    Case "单价"
        Dim y,m,d As Integer
        Dim t As Integer
        Dim dr As DataRow=e.DataRow
        Dim dt1 As Date = dr("登记日期")
        Dim dt2 As Date = now()
        DateYMD(dt1,dt2,y,m,d)
        t=y*12+m
        dr("累计折旧")=dr("总值")/dr("使用年限")/12*t
End Select

请问到底是哪里的代码错了呢？

出现什么问题？