以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  如何在录入窗口 显示 新增记录数？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=96072)
--  作者：puresky
--  发布时间：2017/2/12 15:18:00
--  如何在录入窗口 显示 新增记录数？
请教：如何在录入窗口 显示 新增记录数？
--  作者：有点色
--  发布时间：2017/2/12 16:44:00
--  
 根据什么逻辑得到数据？
--  作者：puresky
--  发布时间：2017/2/12 16:55:00
--  
以下是引用有点色在2017/2/12 16:44:00的发言：
 根据什么逻辑得到数据？

应用场景是这样的。我设计了一个录入窗口。每次录入一条记录，当我录入工作完毕的时候，想在窗口页面，显示，我一共录入了多少条记录。另外，在窗口显示，表的总记录数。我等你的回复很久了，谢谢！希望能帮我解决！
--  作者：有点色
--  发布时间：2017/2/12 16:59:00
--  

TimerTick事件

 

e.Form.Controls("Label1").Text = Tables("表A").Rows.count

e.Form.Controls("Label2").Text = Tables("表A").Rows.count - vars("初始记录数")

 

http://www.foxtable.com/webhelp/scr/1301.htm

 

----------------------

 

AfterOpenProject事件

 

vars("初始记录数") = Tables("表A").Rows.count

[此贴子已经被作者于2017/2/12 17:38:09编辑过]
--  作者：puresky
--  发布时间：2017/2/12 17:37:00
--  

此主题相关图片如下：qq截图20170212173506.png
按此在新窗口浏览图片
以下是引用有点色在2017/2/12 16:59:00的发言：

TimerTick事件

 

e.Form.Controls("Label1").Text = Tables("表A").Rows.count

e.Form.Controls("Label2").Text = Tables("表A").Rows.count - vals("初始记录数")

 

http://www.foxtable.com/webhelp/scr/1301.htm

 

----------------------

 

AfterOpenProject事件

 

vars("初始记录数") = Tables("表A").Rows.count

报错啊，val 我已经定义了啊
--  作者：有点色
--  发布时间：2017/2/12 17:38:00
--  

e.Form.Controls("Label2").Text = Tables("表A").Rows.count - vals("初始记录数")

 

改成

 

e.Form.Controls("Label2").Text = Tables("表A").Rows.count - vars("初始记录数")
--  作者：puresky
--  发布时间：2017/2/12 18:01:00
--  
不好意思，我var 写成了val ，你的代码是正确的
--  作者：puresky
--  发布时间：2017/2/12 18:02:00
--  
有点色，谢谢你！