Dim Pages As Integer = Math.Ceiling(Count/PageRows) '计算出总页数
cmd.CommandText = "Select * From (Select Row_Number() Over(Order by 订单.编号 desc ) As RowNum,订单.编号,单位,申请部门,申请人,状态"
cmd.CommandText = cmd.CommandText & " From 订单 Left JOIN 嫌疑人基本信息 ON 嫌疑人基本信息.编号 = 订单.编号 Group By {订单}.编号,单位,申请人) As a "
cmd.CommandText = cmd.CommandText & " Where RowNum >= " & StartRow & " And RowNum <= " & EndRow
Dim dt As DataTable = cmd.ExecuteReader
另外只有SqlServer才支持Row_Number用法