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


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

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

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


加好友 发短信
等级:幼狐 帖子:63 积分:597 威望:0 精华:0 注册:2019/7/25 11:01:00
[求助]页面底部状态栏显示统计数据  发帖心情 Post By:2019/8/12 14:41:00 [只看该作者]

求助老师们,想要向excel表一样,在狐表下底边栏显示当前窗口筛选的行数,可以吗?
就是把窗口当前绑定某一表当前所有行数,即表左侧的行数在底部显示出来
[此贴子已经被作者于2019/8/12 14:44:44编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

帮助搜“statusbar”

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


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

哦,我想通过表PositionChanged事件实现,简单一些,写入代码:

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

 

能够实现,但是筛选显示是会出错

有时候点表中的行才会显示,有时候不需要点击也能显示,有时候点击了显示的行是错误的

 

 

筛选TopicBarTopicLinkClick代码如下:
Select Case e.Link.Text

 Case "全区在职村干部"

        Tables("村干部基本信息").Filter = "[转为退职] = False"

        Tables("村干部基本信息").Sort = "排序"

    Case "退职村干部"

        Tables("村干部基本信息").Filter = "[转为退职] = True"

        Tables("村干部基本信息").Sort = "排序"

    Case "村书记"

        Tables("村干部基本信息").Filter = "[职务排序] In ('00','01') and [转为退职] = 'False'"

        Tables("村干部基本信息").Sort = "排序"

    Case "村主任"

        Tables("村干部基本信息").Filter = "[职务排序] = 02 and [转为退职] = 'False'"

        Tables("村干部基本信息").Sort = "排序"

    Case "村书记兼主任"

        Tables("村干部基本信息").Filter = "[职务排序] = 00 and [转为退职] = 'False'"

        Tables("村干部基本信息").Sort = "排序"

End Select

 

请老师指导

[此贴子已经被作者于2019/8/12 15:50:54编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

我测试没有问题,上传实例说明

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


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

请老师查看实例,
进入窗口点击“村干部信息表”后,筛选有关数据,状态栏显示出现的问题有:
1、无论筛选那个类别,都要点击第二行后,状态栏数据才会发生变化;
2、如果数据行只有一行,怎么点数据都不会刷新。如:筛选村书记兼主任类,表只有一行,上次的数据在状态栏不会改变。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:村干部信息系统.table


 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

使用Message2 


If e.Table.Current Is Nothing Then

    StatusBar.Message2 = "" & e.Table.Rows.Count & ""

Else

    StatusBar.Message2 = "" & (e.Table.Position + 1) & "," & e.Table.Rows.Count & ""

End If


如果要使用Message1 ,这样处理一下


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


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


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

两种方法都不行,问题依旧,PositionChanged事件看来不能实现

 回到顶部
帅哥,在线噢!
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

我测试没有问题。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:村干部信息系统.zip


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


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

有问题哦,您点击村书记兼主任进行筛选,然后在点击其他任一个进行筛选试试看呢,只有再次点击表第二行以下的其他行,才会刷新数据

 回到顶部
帅哥,在线噢!
有点蓝
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

正常因为在项目刚刚打开的时候,并不会触发PositionChanged事件,而做筛选,由于表格一直选择的第一行,Position也没有变化,所以也不会触发事件。要么把代码改放到currentchanged,或者发一份到afteropenproject事件

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