主题：页面集合里加载的问题，谢大神帮忙。

该代码是放在窗体的全局单击事件中。我用了TabControl来分页查看，但下面的加载条件如果点击了第2个分页，执行不了，就会报错，请高手指点，谢谢！

 

 

Dim i As Integer
If Forms("导入记录查询").Controls("TabControl1").SelectedIndex = 0 Then
i= 1
End If
If Forms("导入记录查询").Controls("TabControl1").SelectedIndex = 1 Then
i= 2
End If

Select Case e.Sender.Name
    Case "Label2"
        With DataTables("导入记录查询_Table" & i)
            If .LoadPage <> 0 Then
                .LoadTop = 10
                .LoadPage = 0
                .Load()
            End If
        End With
    Case "Label4"
        With DataTables("导入记录查询_Table" & i)
            If .LoadPage < .TotalPages - 1 Then
                .LoadPage = .LoadPage + 1
                .Load()
            End If
        End With
    Case "Label3"
        With DataTables("导入记录查询_Table" & i)
            If .LoadPage > 0 Then
                .LoadPage = .LoadPage - 1
                .Load()
            End If
        End With
    Case "Label5"
        With DataTables("导入记录查询_Table" & i)
            If .LoadPage < .TotalPages - 1 Then
                .LoadPage = .TotalPages - 1
                .Load()
            End If
        End With
       
    Case "Button2"
        With DataTables("导入记录查询_Table" & i)
            .LoadPage = qq.value- 1
            .Load()
        End With       
End Select

 

 

 

 

此主题相关图片如下：未命名.bmp

都没人回我的，是不是不能这样用了，求大神指点下。

报什么错,上例子!

我的表格是绑定的外部ACC表，是不是不行？
此主题相关图片如下：未命名2.bmp


此主题相关图片如下：未命名1.bmp

上个例子，直接就能测试、修改。

不然要从头做项目，窗口、控件、表、数据、代码，统统来一遍，费好大周折。

 

上例子吧

这个是外部ACCESS表，不好上例子。如果代码没有什么问题，我就再找找原因，谢谢两位大神！

ACCESS数据源也发上来呗,有敏感数据自己删掉就好.随便填点数据做测试.