sel ect组合条件统计Count报错语法错误？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

去掉了不报错但是无法获得准确的count了永远只有1

但是页面显示的数据大于1 且大于10时没有下一页上一页对应功能

麻烦老师看看是不是代码哪里顺序弄错了还是写错了

这个代码count永远只有1？说明符合条件数据也就只有1条

Dim cmd As New SQ LCommand

cmd.Connec ti '记得设置数据源名称

cmd.CommAndText = "Select Count(*) From {user} where " & flt

Dim Count As Integer = cmd.ExecuteScalar() '获取总的行数

MessageBox.Show(count)

提示是1，但是实际生成的数据却是所有的符合筛选条件的数据！且已经找到的数据并没有生成上一页下一页

Dim pageRows As Integer = 10 '每页10行如果将10改成100 则可以显示所有的数据

附上例子麻烦老师看看谢谢！

以下内容是专门发给有点蓝浏览

没看到有12楼的代码，数量要单独获取

Dim cmd As New SQLC ommand

cmd.Connectio nName = "智慧党建" '记得设置数据源名称

Dim cmd11 As New S QLCommand

cmd11.Connecti '记得设置数据源名称

If flt > "" Then

cmd.CommandText = "Se lect * From (Sel ect Row_Number() Over(Order by _Identify) As [NO.],[_Identify],姓名,支部名称 as 所属支部,联系电话 From 党员信息 where " & flt & ") As a "

'cmd11.CommandText = "Sel ect Count(*) From {党员信息} where " & flt

'msgbox(cmd11.CommAndText)

Else

cmd.CommandText = "Sel ect * From (Sel ect Row_Number() Over(Order by _Identify) As [NO.],[_Identify],姓名,支部名称 as 所属支部,联系电话 From 党员信息) As a "

End If

Dim Count As Integer = cmd11.Exe cuteScalar() '获取总的行数

MessageBox.Show(count)

12楼的代码在这个区域不知道是不是放错位置了还是逻辑错误显示下一页不够完整不能返回上一页

[此贴子已经被作者于2021/2/2 10:39:39编辑过]

数量要单独获取！！！！1和15楼的代码一点关系都没有

Dim cmd As New SQ LCommand

cmd.Connec ti '记得设置数据源名称

cmd.CommAndText = "Select Count(*) From {user} where " & flt

Dim Count As Integer = cmd.ExecuteScalar() '获取总的行数

MessageBox.Show(count)

If flt > "" Then

cmd.CommandText = "Se lect * From (Sel ect Row_Number() Over(Order by _Identify) As [NO.],[_Identify],姓名,支部名称 as 所属支部,联系电话 From 党员信息 where " & flt & ") As a "

'msgbox(cmd.CommAndText)

Else

cmd.CommandText = "Sel ect * From (Sel ect Row_Number() Over(Order by _Identify) As [NO.],[_Identify],姓名,支部名称 as 所属支部,联系电话 From 党员信息) As a "

End If

有时间瞎折腾不如多看看帮助是怎么样用的：http://www.foxtable.com/mobilehelp/topics/0128.htm

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

将代码与帮助文件比对设置成如上之后是会有显示上一页下一页但是所获取得到的数据依旧是全部数据而不是筛选得到的数据比如预备党员只有四名页面会显示“下一页” 点击会显示所有的党员名单而不是只有预备党员四人信息