专家坐堂-窗口按钮Click事件Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  窗口按钮Click事件  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=129862)

--  作者：zhangxl1964
--  发布时间：2019/1/7 20:40:00
--  窗口按钮Click事件

有点甜老师：你好！
在表的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

--  作者：有点蓝
--  发布时间：2019/1/7 21:08:00
--
dim r as row = Tables("DataColChanged事件所在的表").current
Dim 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()

--  作者：zhangxl1964
--  发布时间：2019/1/8 7:12:00
--
有提示

--  作者：有点甜
--  发布时间：2019/1/8 9:10:00
--

1、什么错误提示？

2、你要设置数据源名 http://www.foxtable.com/webhelp/scr/2344.htm