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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]

共有5468人关注过本帖树形打印复制链接主题：[求助]

eway168

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：96 积分：717 威望：0 精华：0 注册：2013/6/28 13:05:00

[求助]

Post By：2013/8/7 23:17:00 [只看该作者]

如果把代码放到DataColChanged该较直接，便这段代码要读取一个动态生成的表（含计算公式），怕在资源上耗费太大。有什么更有效的办法吗？老大。

在afterload()中定义的变量，datarows，在表事件中可直接引用吗？作用域

（相关图片在3楼）

[此贴子已经被作者于2013-8-7 23:31:04编辑过]

eway168

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：96 积分：717 威望：0 精华：0 注册：2013/6/28 13:05:00

Post By：2013/8/7 23:18:00 [只看该作者]

图表上传不了？

eway168

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：96 积分：717 威望：0 精华：0 注册：2013/6/28 13:05:00

Post By：2013/8/7 23:19:00 [只看该作者]

此主题相关图片如下：未命名.jpg

狐狸爸爸

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2013/8/8 8:51:00 [只看该作者]

在DataColChanged设置代码，每当某行输入公式，就即时计算出结果存入结果列，比集中计算要高效一些。

eway168

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：96 积分：717 威望：0 精华：0 注册：2013/6/28 13:05:00

Post By：2013/8/8 9:37:00 [只看该作者]

公式放在一个独立的表中，在DataColchanged中每触发一次，就要去做查询那在表并取出相关公式进行运算，资源耗费估计不小。这个公式表只有在本窗口打开时在afterload中才能确定记录内容。这个表要放在哪里,可以让DataColChanged可以直接引用而不用（每触发一次就运行一次）查询生成这个公式表?

提取公式的代码类似于：

Dim cmd As New SQLCommand

Dim dt As DataTable

cmd.C

cmd.CommandText = "Select taskno,tcolname,tcolcode,tcolcaption,tcolexpression from {task_template} " & _

"where taskno='" & Vars("gtasklistno") & "' order by tcolindex"

dt = cmd.ExecuteReader()

Dim s1 As String

Dim s0 As String

For Each r1 As DataRow In dt.DataRows

。。。。。