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

1楼

185723664 发表于：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楼

有点蓝 发表于：2024/7/31 8:38:00

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

3楼

185723664 发表于：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楼

有点蓝 发表于：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")

共4 条记录, 每页显示 10 条, 页签: [1]