Foxtable(狐表) → 用户栏目 → 专家坐堂 → TopicBar可以试用TimerTick吗？


  共有4526人关注过本帖树形打印复制链接

主题：TopicBar可以试用TimerTick吗？
帅哥哟，离线，有人找我吗？
yolala
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：273 积分：1777 威望：0 精华：0 注册：2013/2/18 23:22:00 		TopicBar可以试用TimerTick吗？  发帖心情 Post By：2022/11/16 21:56:00 [只看该作者]

图片点击可在新窗口打开查看
这是用TopicBar做的，修改了内容之后，比如审核或者取消审核了，不会动态显示修改后的结果，要退出重新进入系统后才会有变化显示，请问如何做才能同步显示修改后的内容呢？
 回到顶部
帅哥哟，离线，有人找我吗？
rjh4078
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3355 积分：24726 威望：0 精华：0 注册：2012/3/26 21:47:00 		  发帖心情 Post By：2022/11/16 22:26:00 [只看该作者]

在相关操作完成之后重新生成一次

 回到顶部
帅哥哟，离线，有人找我吗？
yolala
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：273 积分：1777 威望：0 精华：0 注册：2013/2/18 23:22:00 		  发帖心情 Post By：2022/11/16 22:29:00 [只看该作者]

以下是引用rjh4078在2022/11/16 22:26:00的发言：
在相关操作完成之后重新生成一次
啥意思，不明白。我要的是实时更新的效果，不用退出去重新进入就可以看得到的。
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106081 积分：539504 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/11/17 9:00:00 [只看该作者]

修改了内容之后，比如审核或者取消审核了  -- 如果是在表格审核列里勾选的，到datacolchanged事件刷新任务栏即可

 回到顶部
帅哥哟，离线，有人找我吗？
yolala
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：273 积分：1777 威望：0 精华：0 注册：2013/2/18 23:22:00 		  发帖心情 Post By：2022/11/17 9:05:00 [只看该作者]

蓝版，我是在表格审核列里边勾选的，datacolchanged刷新任务代码怎么写？

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106081 积分：539504 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/11/17 9:22:00 [只看该作者]

TopicBar里面的数量是写什么代码生成的，调用同样的代码即可

 回到顶部
帅哥哟，离线，有人找我吗？
yolala
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：273 积分：1777 威望：0 精华：0 注册：2013/2/18 23:22:00 		  发帖心情 Post By：2022/11/17 9:44:00 [只看该作者]

Dim Page As WinForm.TopicPage
Dim cnt1 As Integer = DataTables("日志内容").Compute("Count([_identify])")
Dim cnt2 As Integer = DataTables("日志内容").Compute("Count([_identify])", "已审核 = True")
Dim cnt3 As Integer = DataTables("日志内容").Compute("Count([_identify])", "已审核 = False Or 已审核 Is Null")
Page = e.Form.Controls("TopicBar1").Pages.Add("日志统计信息", "日志统计信息")
Page.Links.Add("当前日志总数", "当前日志总数(" & cnt1 & ")")
Page.Links.Add("已审核", "已审核(" & cnt2 & ")")
Page.Links.Add("未审核", "未审核(" & cnt3 & ")")

这段代码贴到datacolchanged之后，打开录入窗口，报错了：
.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2022.8.18.1
错误所在事件：全局表事件, DataColChanged
详细错误信息：
调用的目标发生了异常。
未将对象引用设置到对象的实例。
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106081 积分：539504 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/11/17 10:02:00 [只看该作者]

代码放到不同事件有不同的写法，建议多看看帮助理解不同事件的使用说明。

If e.DataTable.Name = "xx名称" Then 如果是需要处理的表
    If Forms("xx窗口").Opened Then 如果这个窗口处于打开状态
if e.datacol.name = "已审核" then 如果是审核列勾选触发的事件
Dim cnt2 As Integer = DataTables("日志内容").Compute("Count([_identify])", "已审核 = True")
        Forms("xx窗口").Controls("TopicBar1").Pages("日志统计信息").Links("已审核").Text = "已审核(" & cnt2 & ")" 已经添加过，没有必要重复添加了。直接改文本内容即可
endif
    End If 
End If 
 回到顶部
帅哥哟，离线，有人找我吗？
yolala
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：273 积分：1777 威望：0 精华：0 注册：2013/2/18 23:22:00 		  发帖心情 Post By：2022/11/17 10:29:00 [只看该作者]

老师，我这里的代码
Page.Links.Add("当前日志总数", "当前日志总数(" & cnt1 & ")")
在增加了行数据之后，topicbar里的日志总数不会变呀，也得退出了再进才有变化，该怎么在datacolchanged里修改？
已审核可以显示在topicbar里了

If e.DataTable.Name = "日志内容" Then '如果是需要处理的表
    If Forms("导航窗口").Opened Then '如果这个窗口处于打开状态
If e.DataCol.name = "已审核" Then '如果是审核列勾选触发的事件
Dim cnt2 As Integer = DataTables("日志内容").Compute("Count([_identify])", "已审核 = True")
        Forms("导航窗口").Controls("TopicBar1").Pages("日志统计信息").Links("已审核").Text = "已审核(" & cnt2 & ")" '已经添加过，没有必要重复添加了。直接改文本内容即可
End if
    End If 
End If
[此贴子已经被作者于2022/11/17 10:31:27编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yolala
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：273 积分：1777 威望：0 精华：0 注册：2013/2/18 23:22:00 		  发帖心情 Post By：2022/11/17 10:46:00 [只看该作者]

老师，还有一个问题，就是怎么样做，才可以点击topicbar里的对应事项，点击【当前日志总数】显示全部日志数或者筛选出已审核或者未审核的数据？ topicbar里的事件代码如下：

Dim Page As WinForm.TopicPage
Dim cnt1 As Integer = DataTables("日志内容").Compute("Count([_identify])")
Dim cnt2 As Integer = DataTables("日志内容").Compute("Count([_identify])", "已审核 = True")
Dim cnt3 As Integer = DataTables("日志内容").Compute("Count([_identify])", "已审核 = False Or 已审核 Is Null")
Page = e.Form.Controls("TopicBar1").Pages.Add("日志统计信息", "日志统计信息")
Page.Links.Add("当前日志总数", "当前日志总数(" & cnt1 & ")")
Page.Links.Add("已审核", "已审核(" & cnt2 & ")")
Page.Links.Add("未审核", "未审核(" & cnt3 & ")")

不知道要怎么在这里写代码，犯迷糊中。
[此贴子已经被作者于2022/11/17 10:59:15编辑过]
 回到顶部
总数 28 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 4 次数据查询