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


  共有2791人关注过本帖树形打印复制链接

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

帅哥,在线噢!
有点蓝
  21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105918 积分:538653 威望: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

 回到顶部
帅哥哟,离线,有人找我吗?
cnsjroom
  22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1571 积分:11238 威望:0 精华:0 注册:2021/1/17 17:06:00
回复:(有点蓝)第一次查询,进入下一页,分别看看弹...  发帖心情 Post By:2021/2/2 12:40:00 [只看该作者]


cmd.CommandText = "Select Count(*) From {党员信息} where " & flt
经反复核查,flt在当前页时有值   但是点下一页时就无值  上一个页面传过来的值貌似被丢了
有没有办法解决呢?


http://www.foxtable.com/mobilehelp/index.htm?page=0128.htm 参照这个帮助说明  代码修正如下  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:getdangyuanlist.txt
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:getfilter.txt

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:getcookiefilte.txt



结果问题还是和上面描述一样  点下一页的时候flt的值为空  就会提示where附近语法错误

[此贴子已经被作者于2021/2/2 12:49:35编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

把筛选条件放到cookie里,如:http://www.foxtable.com/mobilehelp/topics/0150.htm

 回到顶部
帅哥哟,离线,有人找我吗?
cnsjroom
  24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1571 积分:11238 威望:0 精华:0 注册:2021/1/17 17:06:00
回复:(有点蓝)把筛选条件放到cookie里,如:http:/...  发帖心情 Post By:2021/2/2 14:45:00 [只看该作者]

ok  谢谢老师的耐心指导  问题现在得以解决  

老师我想进一步实现  可以选择多个姓名  怎么实现呢?
With wb.AddInputGroup("form1","ipg123","信息筛选")
            .AddSelect("姓名","姓名","|" & dt1.sqlGetComboListString("姓名"))
        End With
上述代码只能选择一个姓名值

在你的exweui和高级开发帮助里面我也没有看见类似相关操作,但是在实际工作中又有需要选择两个及以上姓名的情况,怎么操作呢?
另外在学习你exweui帮助中的使用远程查询  时  我的页面总是无法输入值  会有哪些因素导致呢 ?我测试的平台就是我楼上的例子 dll已经加载

[此贴子已经被作者于2021/2/2 14:55:32编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  25楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

多选使用这种:http://www.foxtable.com/mobilehelp/topics/0053.htm

使用远程查询怎么用的,贴出具体代码说明

 回到顶部
帅哥哟,离线,有人找我吗?
cnsjroom
  26楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1571 积分:11238 威望:0 精华:0 注册:2021/1/17 17:06:00
  发帖心情 Post By:2021/2/2 15:00:00 [只看该作者]

图片点击可在新窗口打开查看

这样的多选是符合选择项比较少的情况,如果当前姓名比较多的情况下   比如50个以上  这样的设计就不大友好了  有没有办法实现在窗体中复选框控件那样的效果呢?


使用远程查询 运行效果:

图片点击可在新窗口打开查看此主题相关图片如下:12121.gif
图片点击可在新窗口打开查看
输入框不能选择 也不能实现老师例子中的那样可以检索选择

chaxun1代码
Dim e As RequestEventArgs = args(0)
Dim wb As New weui  
        wb.AppendHTML("<link rel='stylesheet' href='./weui/exweui.css'/>",True)  '需要注意的是,这里必需要使用true参数,假设文件放在weui目录中 
        wb.AppendHTML("<script src='./weui/exweui.js' ></script>",True)  
        wb.AddForm("","form1","chaxun1.htm")  
        Dim ipg As ExWeUI.ExInputGroup = ExWeUI.WebUI.AddInputGroup("","ipg1","可查询列表框")  
        Dim Inp As ExWeUI.ExQuerySelect  = ipg.AddQuerySelect("单位名称","单位名称","|" & DataTables("党员信息").GetComboListString("单位名称"))  
        inp.url="getSelect1"  
        ’Inp.value = "北京市"  
        Inp.Placeholder = "请选择单位"  
        wb.InsertHTML("form1",ipg.BuildHtml)  
        With wb.AddButtonGroup("form1","btg1",True)  
            .Add("btn1", "确定", "submit")  
        End With  
        wb.AppendHTML("<script>initExWeUI();</script>")  
        e.WriteString(wb.Build) '生成网页


getSelect1代码
Dim e As RequestEventArgs = args(0)
 Dim filter As String = ""  
        If e.PostValues.ContainsKey("单位名称_query") Then  
            filter = "单位名称 like '%" & e.PostValues("单位名称_query") & "%'"  
        End If  
        e.WriteString(DataTables("党员信息").GetComboListString("单位名称",filter))
[此贴子已经被作者于2021/2/2 15:01:26编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  27楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

引用的文件都复制到对应的路径了吗?http://www.foxtable.com/mobilehelp/topics/0044.htm


        wb.AppendHTML("<link rel='stylesheet' href='./weui/exweui.css'/>",True)  '需要注意的是,这里必需要使用true参数,假设文件放在weui目录中 
        wb.AppendHTML("<script src='./weui/exweui.js' ></script>",True)  

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