[求助]当前列值等于0、1、2、3行的数量统计显示在左下角 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]当前列值等于0、1、2、3行的数量统计显示在左下角

共有1514人关注过本帖树形打印复制链接主题：[求助]当前列值等于0、1、2、3行的数量统计显示在左下角

185723664

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

加好友

发短信

等级：幼狐帖子：113 积分：974 威望：0 精华：0 注册：2023/6/18 23:26:00

[求助]当前列值等于0、1、2、3行的数量统计显示在左下角 发帖心情

Post By：2024/7/30 23:58:00 [只看该作者]

求助，SystemIdle

With CurrentTable
    Dim Str1 As String = "用户: " & User.Name
    Str1 = Str1 & " 表名: " & .Name & " 总行数: "
    Str1 = Str1 & .Rows.Count & " 当前行: " & (.Position + 1)
    StatusBar.Message1 = Str1

End With

上面代码，增加实现当前列 0值xx行、1值xx行、2值xx行、3值xx行，显示在表的左下角Str1中

[此贴子已经被作者于2024/7/31 0:02:28编辑过]

有点蓝

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

加好友

发短信

等级：超级版主帖子：110865 积分：564275 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/7/31 8:38:00 [只看该作者]

没看懂【0值xx行、1值xx行、2值xx行、3值xx行】表示什么意思，截图举例说明一下

185723664

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

加好友

发短信

等级：幼狐帖子：113 积分：974 威望：0 精华：0 注册：2023/6/18 23:26:00

回复：（有点蓝）没看懂【0值xx行、1值xx行、2值xx行、... 发帖心情

Post By：2024/8/2 20:13:00 [只看该作者]

当光标在第一列时，左下角显示文字加上 0值0行、1值2行、2值2行、3值2行

当光标在第二列时，左下角显示文字加上 0值0行、1值3行、2值2行、3值3行

当光标在第三列时，左下角显示文字加上 0值0行、1值4行、2值4行、3值0行

当光标在第四列时，

此主题相关图片如下：示例.jpg

下载信息 [文件大小：下载次数： ]
点击浏览该文件:0123.foxdb

[此贴子已经被作者于2024/8/2 20:22:32编辑过]

有点蓝

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

加好友

发短信

等级：超级版主帖子：110865 积分：564275 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/8/3 9:36:00 [只看该作者]

dim t as table = currenttable

dim name as string = t.cols(t.colsel).name

msgbox("0值" & t.compute("count(" & name & ")") & "行",name & "=0")

msgbox("1值" & t.compute("count(" & name & ")") & "行",name & "=1")

下一主题 >> << 上一主题

主题：[求助]当前列值等于0、1、2、3行的数量统计显示在左下角