- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]选择行的数量在左下角或右下角显示 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=172542)
-- 发布时间：2021/10/18 17:14:00
-- [求助]选择行的数量在左下角或右下角显示
比如当前表选择5行，在底部的左下角或右下角，显示文字：当前选择5行
-- 发布时间：2021/10/18 17:16:00
--
参考：http://www.foxtable.com/webhelp/topics/0665.htm
-- 发布时间：2021/10/18 17:46:00
-- 回复：（有点蓝）参考：http://www.foxtable.com/webh...
要实现当前选择的多个行的数量，比如表总共10行，当前框选4行（第3到第6行）。求助，怎么修改下面代码，
With CurrentTable
For i As Integer = .TopPosition To .BottomPosition
Dim Str1 As String = "用户: " & User.Name
Str1 = Str1 & " 表名: " & .Name & " 总行数: "
Str1 = Str1 & .Rows.Count & " 当前选择行数: " & (i) \'求助显示总框选的多行数量，不是当前行1行的位置
StatusBar.Message1 = Str1
Next
End With
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:当前选择行数量求助.foxdb |
[此贴子已经被作者于2021/10/18 19:14:47编辑过]
-- 发布时间：2021/10/18 20:25:00
--
With CurrentTable
Dim Str1 As String = "用户: " & User.Name
Str1 = Str1 & " 表名: " & .Name & " 总行数: "
Str1 = Str1 & .Rows.Count & " 当前选择行数: " & (.BottomPosition - .TopPosition + 1) \'求助显示总框选的多行数量，不是当前行1行的位置
StatusBar.Message1 = Str1
End With