- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]筛选后报错 索引超出范围。必须为非负值并小于集合大小。 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=48375)
-- 发布时间：2014/3/27 18:49:00
-- [求助]筛选后报错 索引超出范围。必须为非负值并小于集合大小。
代码运行没问题 但对表进行筛选后 报错
索引超出范围。必须为非负值并小于集合大小。
参数名: index
求助 ...
代码如下
\'\'AfterSelRangeChange
Dim s1,s2,s3 As String
With Tables("表A")
If .TopPosition > -1 Then \'如果选定区域包括数据行
For i As Integer = .TopPosition To .BottomPosition
If .Rows(i)("第一列") <> "" Then
If s1 <> "" Then
s1 = s1 & "," & .Rows(i)("第一列")
Else
s1 = .Rows(i)("第一列")
End If
End If
If s2 <> "" Then
s2 = s2 & "," & .Rows(i)("第二列")
Else
s2 = .Rows(i)("第二列")
End If
Next
End If
End With
If Forms("窗口1").Opened Then
Forms("窗口1").Controls("Label1").text= s1
Forms("窗口1").Controls("Label2").text= s2
End If
此主题相关图片如下：qq截图20140327183427.png
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.zip |
-- 发布时间：2014/3/27 19:18:00
--
-- 发布时间：2014/3/27 19:24:00
--
应该是其他代码的问题，上面的没有问题呀。
-- 发布时间：2014/3/27 19:38:00
--
Dim s1,s2,s3 As String
With Tables("表A")
If .RowSel < 0 OrElse .ColSel < 0 Then
Return
End If
For i As Integer = .TopPosition To .BottomPosition
If .Rows(i)("第一列") <> "" Then
If s1 <> "" Then
s1 = s1 & "," & .Rows(i)("第一列")
Else
s1 = .Rows(i)("第一列")
End If
End If
If s2 <> "" Then
s2 = s2 & "," & .Rows(i)("第二列")
Else
s2 = .Rows(i)("第二列")
End If
Next
End With
If Forms("窗口1").Opened Then
Forms("窗口1").Controls("Label1").text= s1
Forms("窗口1").Controls("Label2").text= s2
End If
-- 发布时间：2014/3/27 20:02:00
--
谢谢~ 已解决~