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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 窗口中的数据表不能实现实时统计

共有2147人关注过本帖树形打印复制链接主题：窗口中的数据表不能实现实时统计

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/3/22 22:58:00 [显示全部帖子]

CurrentTableChanged事件，写代码

If CurrentTable.Name = "表1" Then

DataTables("表2").dataCols("列名").RaiseDataColChanged()

End If

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/3/23 9:58:00 [显示全部帖子]

参考

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

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/3/23 11:38:00 [显示全部帖子]

你什么时候需要实时计算，就在什么事件加上代码 DataTables("表2").dataCols("列名").RaiseDataColChanged()

比如，你可以在dataColChanged事件加上。

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/3/23 15:54:00 [显示全部帖子]

以下是引用cyrollin在2017/3/23 15:29:00的发言：

在此事件加入这个代码，打开和关闭相应窗口变得很慢，是正常的吗？

如果你这句代码 DataTables("表2").dataCols("列名").RaiseDataColChanged() 执行耗时，那自然会耗时。

1、把你的计算优化一下；

2、改变一下计算的思路，不要那么实时的计算结果。

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/3/23 17:28:00 [显示全部帖子]

按钮代码这样写

Dim y As Integer = Date.Today.Year
Dim m As Integer = Date.Today.Month
Dim dt1 As New Date(y, m, 1)
Dim dt2 As Date = dt1.AddMonths(1)
Dim Filter As String
Filter = "日期 >= #" & dt1 & "# And 日期 < #" & dt2 & "#"
Tables("表1").Filter = Filter
DataTables("表2").dataCols("列名").RaiseDataColChanged(Filter)

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/3/23 18:23:00 [显示全部帖子]

你表2根据什么条件刷新？

Dim y As Integer = Date.Today.Year
Dim m As Integer = Date.Today.Month
Dim dt1 As New Date(y, m, 1)
Dim dt2 As Date = dt1.AddMonths(1)
Dim Filter As String = "日期 >= #" & dt1 & "# And 日期 < #" & dt2 & "#"

Dim Filter2 As String = "时间 >= #" & dt1 & "# And 时间 < #" & dt2 & "#"
Tables("表1").Filter = Filter
DataTables("表2").dataCols("列名").RaiseDataColChanged(Filter2)