dim r as row =
Tables("DataColChanged事件所在的表").currentDim Num As String
Num=r("资产编码")
DataTables("折旧明细账").Save()
Dim cmd As New SQLCommand
cmd.C
Dim ndj As Double
cmd.CommandText = "Select sum([月折旧额]) as 月折旧额 F rom {折旧明细账} Where 资产编码 ='" & num & "'"
ndj = cmd.ExecuteScalar
cmd.CommandText = "U PDATE {固定资产明细账} set 本期折旧 = " & ndj & " where [资产编码]='" & Num & "'"
cmd.ExecuteNonQuery()
Dim rq As Date
cmd.CommandText = "Select 日期 As 日期 F rom {折旧明细账} Where 资产编码 ='" & num & "'"
rq = cmd.ExecuteScalar
cmd.CommandText = "UPDATE {固定资产明细账} s et 计提日期 = '" & rq & "' where [资产编码]='" & Num & "'"
cmd.ExecuteNonQuery()
DataTables ("固定资产明细账").Load()
加好友 
发短信
Post By：2019/1/7 21:08:00 [显示全部帖子]
