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

还是没有反应啊？

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

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

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