主题：分享:窗口piao据打印

上一条、下一条 到头了的时候，给个提示显得更友好些,  如：下一条 代码：：：

With Tables("凭证")
    if .position < .rows.count-1
        .Position = .Position + 1
    else
        MessageBox.Show("这是最后一条记录，后面没有了!","提示")
    end if
End With