测试没任何问题,不行就上传例子
Tables("窗口1_Table1").Fill("SELECT * F ROM {表A}", True)
'加载第一页数据With DataTables("窗口1_Table1") .LoadFilter = "" .LoadTop = 2 .LoadPage = 0 .Load() msgbox(.TotalPages)End With