Foxtable(狐表)用户栏目专家坐堂 → sel ect组合条件统计Count报错 语法错误?


  共有2812人关注过本帖平板打印复制链接

主题:sel ect组合条件统计Count报错 语法错误?

帅哥哟,离线,有人找我吗?
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106199 积分:540118 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/2/2 11:39:00 [只看该作者]

第一次查询,进入下一页,分别看看弹出的数据

Dim e As RequestEventArgs = args(0)
Dim page As Integer = 0 '默认page为0,显示第一页
Dim pageRows As Integer = 10 '每页15行
If e.GetValues.ContainsKey("page") Then  '如果地址中有page参数
    Integer.TryParse(e.GetValues("page"), page) '提取page参数
End If
msgbox(page)
Dim StartRow As Integer = page * pageRows + 1 '此页第一行
msgbox(StartRow)
Dim EndRow As Integer = (page + 1) * pageRows '此页最后一行
msgbox(EndRow)
'获取该页数据
……
Dim cmd As New SQLCommand
cmd.ConnectionName = "智慧党建" '记得设置数据源名称
cmd.CommandText = "Select Count(*) From {党员信息} where " & flt
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 = "Select * From (Select Row_Number() Over(Order by _Identify) As [NO.],[_Identify],姓名,支部名称 as 所属支部,联系电话  From 党员信息 where " & flt & ") As a "
Else
    cmd.CommandText = "Select * From (Select 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
msgbox(cmd.CommAndText) 
Dim dt As DataTable = cmd.ExecuteReader

 回到顶部
总数 27 1 2 3 下一页