有点甜老师：你好！
在表的DataColChanged事件代码：怎样放在窗口按钮Click事件中执行，下面代码如何修改？
Select Case e.DataCol.Name
Case "资产编码","月折旧额"
Dim Num As String
Num=e.DataRow("资产编码")
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()
End Select
加好友 
发短信
Post By：2019/1/7 20:40:00 [显示全部帖子]
