共10 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：[求助] 排序导致索引出错
1楼
yqiushyqiush 发表于：2025/2/28 15:12:00请问：在表事件AfterSelRangeChange，输入以下代码：
此主题相关图片如下：索引错误.png
With Tables("申请表")
Dim i As Integer = .BottomPosition - .Position + 1
If i > 1 Then
StatusBar.Message2 = " 共选定 " & i & " 行"
Else
StatusBar.Message2 = ""
End If
End With
总是在打开项目时出现错误信息：
此主题相关图片如下：索引错误.png.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2025.1.3.1
错误所在事件：申请表,AfterSelRangeChange
详细错误信息：
索引超出范围。必须为非负值并小于集合大小。
参数名: index
关掉错误信息项目可以正常打开，状态栏也可以正常显示选定行数，如何避免出现错误信息？表格没有做分组处理
[此贴子已经被作者于2025/2/28 16:19:37编辑过]
2楼
y2287958 发表于：2025/2/28 15:16:00判断排除一下没有焦点的状态
If e.IsFocusCell
Then
'如果是焦点所在单元格
3楼
yqiushyqiush 发表于：2025/2/28 16:01:00找到原因了，AfterOpenProject事件中去掉Tables("消耗品采购申请表").Sort = "申购日期"这行代码即可，但是这行排序代码我想保留，请问如何解决？
4楼
有点蓝 发表于：2025/2/28 16:36:00不能保留。排序会导致多行选中无效
5楼
yqiushyqiush 发表于：2025/2/28 17:23:00好吧，另外，还发现一个问题，从上往下选定多行可以正常统计选择行数，从下网上没有显示，有办法解决吗？
6楼
有点蓝 发表于：2025/2/28 17:33:00改为
Dim i As Integer = .BottomPosition - .TopPosition + 1
7楼
yqiushyqiush 发表于：2025/2/28 17:53:00可以了，谢谢蓝版主！
8楼
yqiushyqiush 发表于：2025/3/5 13:36:00再追问一个疑问，系统自带的状态栏右侧数据统计功能，无论是否排序，都不会出现错误信息，是做了什么处理？能引用这个功能吗？
此主题相关图片如下：20250305133129.png
此主题相关图片如下：20250305133129.png9楼
有点蓝 发表于：2025/3/5 14:15:00http://www.foxtable.com/webhelp/topics/0545.htm
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=77615&skin=0
10楼
yqiushyqiush 发表于：2025/3/5 15:34:00参考示例后，功能已经完美实现，谢谢！
共10 条记录, 每页显示 10 条, 页签:
[1]