给楼主说说关键代码,比如加载第n页,每页5行
Dim dt As DataTable = DataTables("表A")
Dim st As Integer = math.min(n * 5 ,dt.DataRows.count -1)
Dim Ed As Integer = math.min((n+1) * 5 - 1,dt.DataRows.count -1)
st = DataTables("表A").DataRows(st)("_Identify")
ed = DataTables("表A").DataRows(ed)("_Identify")
Tables("窗口1_Table1").filter = "[_Identify] >= " & st & " And [_Identify] <= " & ed