以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  数据计算  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=76007)

--  作者:kaituozhe
--  发布时间:2015/10/19 20:42:00
--  数据计算

有些数据计算量非常大,如果DataColChanged设计代码进行计算会直接导致系统崩溃,而且还需要保留一个固定表,除了统计的这些数据外还需要添加其他的数据,我的想法是增加两个按钮,1、增加要统计的列,2、增加列是再点按钮进行计算,这个功能必须要有,现在用临时表只能实现部分要求。


--  作者:大红袍
--  发布时间:2015/10/19 21:00:00
--  

生成临时表,然后填充进去啊

 

http://www.foxtable.com/help/topics/0680.htm

 


--  作者:kaituozhe
--  发布时间:2015/10/19 22:04:00
--  

用暂停执行事件代码的方法可以吗?因为在填充这些数据时还会引起其他计算,导致系统崩溃


--  作者:大红袍
--  发布时间:2015/10/19 22:08:00
--  

可以暂停。

 

http://www.foxtable.com/help/topics/2218.htm

 


--  作者:kaituozhe
--  发布时间:2015/10/19 22:10:00
--  

SystemReady = False
Try
dim f As New Filler
f
.SourceTable = DataTables("订单") \'指定数据来源

f
.SourceCols = "产品,客户" \'指定数据来源列
f
.DataTable = DataTables("统计") \'指定数据接收表
f
.DataCols = "产品,客户" \'指定数据接收列
f
.Fill()
\'填充数据
Catch ex As Exception
    MessageBox.Show(
"追加数据失败")

End
Try
SystemReady =
True

重新计算

 

红字部分为填充数据的代码,填充结束后再在黄色的地方填写重新计算的代码datacolchanged中的代码,可以吗


--  作者:大红袍
--  发布时间:2015/10/19 22:18:00
--  

可以 http://www.foxtable.com/help/topics/1587.htm