该代码是放在窗体的全局单击事件中。我用了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
![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/bmp.gif)
此主题相关图片如下:未命名.bmp