你可以一次性加载一万行数据,比如
With DataTables("订单") .LoadTop = 10000
.LoadFilter = "" .LoadPage = 0 .Load()End With