- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]当前列值等于0、1、2、3行的数量统计显示在左下角 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=192891)
-- 发布时间：2024/7/30 23:58:00
-- [求助]当前列值等于0、1、2、3行的数量统计显示在左下角
求助，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编辑过]
-- 发布时间：2024/7/31 8:38:00
--
没看懂【0值xx行、1值xx行、2值xx行、3值xx行】表示什么意思，截图举例说明一下
-- 发布时间：2024/8/2 20:13:00
-- 回复：（有点蓝）没看懂【0值xx行、1值xx行、2值xx行、...
当光标在第一列时，左下角显示文字加上 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
[此贴子已经被作者于2024/8/2 20:22:32编辑过]
-- 发布时间：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")