主题：前单后单查询按钮

参考

http://www.foxtable.com/webhelp/scr/2263.htm

认认真真看看 http://www.foxtable.com/webhelp/scr/2263.htm

不会做上传具体实例测试。

1、你这样做表有问题，销售表，应该做成一个主表、一个明细表的形式才对。

2、查找前后，参考代码

Dim str As String = "PK-2017-05-11620"
Dim fdr As DataRow = DataTables("销售表").find("单号>'" & str & "'", "单号")
If fdr IsNot Nothing Then
    msgbox(fdr("单号"))
Else
    msgbox("没有了")
End If

--------------

Dim str As String = "PK-2017-05-11620"
Dim fdr As DataRow = DataTables("销售表").find("单号<'" & str & "'", "单号 desc")
If fdr IsNot Nothing Then
    msgbox(fdr("单号"))
Else
    msgbox("没有了")
End If

一个主表、一个明细表，是传统的做法，也是省力的做法。

当然你也可以坚持自己的。你这样做也有这样做的好处。