主题：上一页 下一页代码

With Tables("出库单")

     if .Position>0 then

    .Position = .Position - 1

    end if

End With

With Tables("出库单")

     if .Position >= .rows.count-1 then

    .Position = .Position + 1

    end if

End With

分页同理,判断LoadPage