Dim cmd As New S QLCommand
cmd.Connectio nName = "智慧党建" '记得设置数据源名称
cmd.Comman dText = "Sele ct Count(*) From {党员信息}"
'msgbox(cmd.CommAndText)
Dim Count As Integer = cmd.ExecuteScalar() '获取总的行数
Dim Pages As Integer = Math.Ceiling(Count/PageRows) '计算出总页数
'MessageBox.Show(count)
If flt > "" Then
cmd.CommandText = "Sele ct * From (Se lect Row_Number() Over(Order by _Identify) As [NO.],[_Identify],姓名,支部名称 as 所属支部,联系电话 From 党员信息 where " & flt & ") As a "
Else
cmd.CommandText = "Sel ect * From (Sel ect Row_Number() Over(Order by _Identify) As [NO.],[_Identify],姓名,支部名称 as 所属支部,联系电话 From 党员信息) As a "
End If
cmd.CommandText = cmd.CommandText & " Where [NO.]>= " & StartRow & " And [NO.] <= " & EndRow
Dim dt As DataTable = cmd.ExecuteReader
将代码与帮助文件比对 设置成如上之后 是会有显示上一页下一页 但是所获取得到的数据依旧是全部数据 而不是筛选得到的数据 比如预备党员只有四名 页面会显示“下一页” 点击会显示所有的党员名单 而不是只有预备党员四人信息
此主题相关图片如下：12121.gif
麻烦老师继续指导一下 谢谢！
这个也是为什么我一定想按照 下面的写法获取总数的原因
Dim cmd As New SQ LCommand
cmd.Connec ti '记得设置数据源名称
cmd.CommAndText = "Select Count(*) From {user} where " & flt
代码写成这样之后 低于10行一下就没有再显示 下一页了 但是当大于行时 提示where附近语法错误
此主题相关图片如下：12121.gif
[此贴子已经被作者于2021/2/2 11:08:25编辑过]
加好友 
发短信
Post By：2021/2/1 17:29:00 [显示全部帖子]
此主题相关图片如下：111.png
