- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 总页数获取问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=143553)
-- 发布时间：2019/11/28 11:44:00
-- 总页数获取问题
窗口1有三个分别加载不同数据的动态数据表（table1/2/3）,设置加载时显示的行的数量不同，比如表1加载5行、表2加载4行、表3加载3行，怎么用代码获取总页数最多的表？
-- 发布时间：2019/11/28 12:02:00
--
页数 = 总行数 / 加载行数
-- 发布时间：2019/11/28 15:03:00
--
我想通过对三个表的总页数进行比较，当总页数最大的表执行到最后一页时，执行“计划管理“的”计划2”代码，否则执行“计划1”。
如下面红色字体的代码该怎么改写？请老师帮忙写出判断代码，谢谢！
下一页按钮代码：
With DataTables("表1")
If .LoadPage = .TotalPages - 1
.LoadPage = 0
Else
.LoadPage = .loadpage + 1
End If
.Load()
e.Form.Controls("TextBox1").Value = (.LoadPage + 1) & "/" & .TotalPages
End With
With DataTables("表2")
If .LoadPage = .TotalPages - 1
.LoadPage = 0
Else
.LoadPage = .loadpage + 1
End If
.Load()
e.Form.Controls("TextBox2").Value = (.LoadPage + 1) & "/" & .TotalPages
End With
With DataTables("表3")
If .LoadPage = .TotalPages - 1
.LoadPage = 0
Else
.LoadPage = .loadpage + 1
End If
.Load()
e.Form.Controls("TextBox3").Value = (.LoadPage + 1) & "/" & .TotalPages
End With
with datatables ........
If DataTables("表1").TotalPages = .LoadPage = .TotalPages - 1 And DataTables("表2").TotalPages = .LoadPage = .TotalPages - 1 And DataTables("表3").TotalPages = .LoadPage = .TotalPages - 1 Then
MyTimers("计划2").Enabled = True
Else
MyTimers("计划2").Enabled = False
End If
-- 发布时间：2019/11/28 15:15:00
--
Dim i As Integer = 0
Dim 表 As String= ""
If DataTables("表1").TotalPages > i Then
i = DataTables("表1").TotalPages
表 = "表1"
End If
If DataTables("表2").TotalPages > i Then
i = DataTables("表2").TotalPages
表 = "表2"
End If
If DataTables("表3").TotalPages > i Then
i = DataTables("表3").TotalPages
表 = "表3"
End If
msgbox(表)
If DataTables(表).TotalPages = DataTables(表).LoadPage + 1 Then
……
End If
-- 发布时间：2019/11/28 15:43:00
--
谢谢！