c="user"
Dim filter As String =""
If e.Values.containskey("SPXH") AndAlso e.values("SPXH")>""
cmd.CommandText = "se/ect * from {sp} where charindex('" & e.values("SPXH") & "',xh)> 0 and kc>0 order by sjwz"
filter="xh like '%" & e.values("SPXH") & "%' And kc>0"
Else
cmd.CommandText = "se/ect * from {sp} where kc>0 order by sjwz"
filter="kc>0"
End If
Dim dt As DataTable = cmd.ExecuteReader()
If e.values.containskey("page") Then
dt.loadpage=e.values("page")-1
dt.loadtop=e.values("limit")
End If
dt.load
For Each dr As DataRow In dt.DataRows
arr.add(new jobject)
arr(i)("spm")=dr("spm").Tostring
arr(i)("bh")=dr("bh").Tostring
arr(i)("dj")=dr("dj").Tostring
arr(i)("dw")=dr("dw").Tostring
arr(i)("kc")=dr("kc").Tostring
arr(i)("xh")=dr("xh").Tostring
arr(i)("bz")=dr("bz").Tostring
arr(i)("jj")=dr("jj").Tostring
arr(i)("jfbn")=dr("jfbn").Tostring
arr(i)("xp")=dr("xp").Tostring
arr(i)("ID")=val(dr("_identify"))
i=i+1
Next
Dim obj As new jobject
obj("code")=0
obj("msg")="ok"
obj("count")=val(dt.sqlcompute("count(*)",filter))
obj("data")=arr
e.writestring(compressjson(obj))
e.Handled=True
请问老师，上面order by sjwz在执行sql时是对的，但用了分页加载后前端的顺序就与sjwz排序不一致了，请问该如何改，谢谢
加好友 
发短信
Post By：2022/3/27 21:53:00 [只看该作者]
