主题：上一页 下一页代码

在窗口1中 上一条 下一条按钮 代码请教怎么写 如果当前信息是第一条 上一条按钮不可用 如果当前信息是最后一条 则下一条按钮不可用

出库单_Button1_Click

 

With Tables("出库单")

    .Position = .Position - 1

End With

 

出库单_Button2_Click

 

With Tables("出库单")

    .Position = .Position + 1

End With

 你参照下

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