Foxtable(狐表)用户栏目专家坐堂 → [求助]页面底部状态栏显示统计数据


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

主题:[求助]页面底部状态栏显示统计数据

帅哥哟,离线,有人找我吗?
hzpy
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:63 积分:597 威望:0 精华:0 注册:2019/7/25 11:01:00
  发帖心情 Post By:2019/8/12 17:21:00 [只看该作者]

请教怎么发一份到afteropenproject事件?

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106816 积分:543281 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/8/12 17:26:00 [只看该作者]

代码复制一份放到afteropenproject啊

 回到顶部
帅哥哟,离线,有人找我吗?
hzpy
  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:63 积分:597 威望:0 精华:0 注册:2019/7/25 11:01:00
  发帖心情 Post By:2019/8/12 17:29:00 [只看该作者]

afteropenproject事件写入:
StatusBar.Message1 = "第" & (Tables("村干部基本信息").Position + 1) & "行,共" & Tables("村干部基本信息").Rows.Count & "行"
currentchanged事件写入:
StatusBar.DefaultMessage = ""
If e.Table.Current Is Nothing Then
    StatusBar.Message1 = "共" & e.Table.Rows.Count & "行"
Else
    StatusBar.Message1 = "第" & (e.Table.Position + 1) & "行,共" & e.Table.Rows.Count & "行"
End If

偶尔还是会有问题,比如:启动项目后能够显示第一行共几行,这时直接点“村书记”进行筛选,就不会自动刷新

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106816 积分:543281 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/8/12 17:35:00 [只看该作者]

再放一份设置代码到AfterFilter事件

 回到顶部
帅哥哟,离线,有人找我吗?
hzpy
  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:63 积分:597 威望:0 精华:0 注册:2019/7/25 11:01:00
  发帖心情 Post By:2019/8/12 17:40:00 [只看该作者]

好的,放三个地方才完美解决,谢谢老师,发出来请老师指导,也供需要者参考

afteropenproject事件写入:
StatusBar.Message1 = "第" & (Tables("村干部基本信息").Position + 1) & "行,共" & Tables("村干部基本信息").Rows.Count & "行"

positionchanged事件写入:
StatusBar.DefaultMessage = ""
If e.Table.Current Is Nothing Then
    StatusBar.Message1 = "共" & e.Table.Rows.Count & "行"
Else
    StatusBar.Message1 = "第" & (e.Table.Position + 1) & "行,共" & e.Table.Rows.Count & "行"
End If

AfterFilter事件写入:
If e.Table.Current Is Nothing Then
    StatusBar.Message1 = "共" & e.Table.Rows.Count & "行"
Else
    StatusBar.Message1 = "第" & (e.Table.Position + 1) & "行,共" & e.Table.Rows.Count & "行"
End If
[此贴子已经被作者于2019/8/12 17:45:41编辑过]

 回到顶部
总数 15 上一页 1 2