前
Dim dt As DataTable = DataTables("表A")
dt.LoadFilter = "单号 < '" & e.Form.Controls("TextBox1").Text & "'"
dt.LoadTop = 1
dt.LoadOrder = "单号"
dt.LoadReverse = True
dt.LoadPage = 0
dt.Load
后
Dim dt As DataTable = DataTables("表A")
dt.LoadFilter = "单号 > '" & e.Form.Controls("TextBox1").Text & "'"
dt.LoadTop = 1
dt.LoadOrder = "单号"
dt.LoadReverse = False
dt.LoadPage = 0
dt.Load