我想通过对三个表的总页数进行比较,当总页数最大的表执行到最后一页时,执行“计划管理“的”计划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