主题：根据表高分页

第一页这个分页是正常的

Dim gd As WinForm.Table
gd = Forms("出库列表").Controls("Table1")
With DataTables("出库列表")
    .LoadFilter = ""
    .LoadTop = gd.Height / 21 '每页35行
    .LoadPage = 0 '加载第一页
    .Load()
    e.Form.Controls("TextBox3").Value = 1 & "/" & .TotalPages
End With

 

 

下一页这个代码这个，，，点击下一页报错

With DataTables("出库列表")
    If .LoadPage < .TotalPages - 1 Then
        .LoadPage = .LoadPage + 1
        .Load()
        e.Form.Controls("TextBox3").Value = (.LoadPage + 1) & "/" & .TotalPages
    End If
End With

 

 

把 .LoadTop = gd.Height / 21   改成 .LoadTop = 20 下一页又是正常的

不知道什么原因了，，请教老师指点指点

此主题相关图片如下：捕获.png