Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]list条件合成无效


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

主题：[求助]list条件合成无效
帅哥哟，离线，有人找我吗？
sunion
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：241 积分：2569 威望：0 精华：0 注册：2018/1/11 14:52:00 		[求助]list条件合成无效  发帖心情 Post By：2021/8/15 21:26:00 [只看该作者]

 在生成stulist.htm页面时，条件合成无效，没有依据“学校”、“班级”、“录入员”以及起始时间生成数据表，生成的是全部的数据，

Select Case e.Path
    Case "stufilter.htm"     
        With wb.AddInputGroup("form1","ipg1","<img  src='./images/mm1.png'/> <style='width:50px'><span style='font-size:21px'>数据管理</span>")  '新增数据信息
            .AddSelect("xx","学校",schoolname)    
            .AddSelect("lry","录入员",username)    
            With.AddSelect("bj","班级 ","|" & DataTables("订单表").GetComboListString("班级","[学校] = '" & schoolname & "'"))
        End With
        .AddInput("startdate","开始日期","date")
        .AddInput("enddate","结束时间","date")
        ' End With
    End With
    With wb.AddButtonGroup("form1","btg1",False)
        .Add("btn1", "查询记录","submit")
        .Add("home","返回主页","", "classwork.htm")    '----------------返回首页
    End With
    With wb.AddInputGroup("form1","ipg3",“”注:若查询条件为空,则不限制该条件查询!")  '新增数据信息
    End With
    e.WriteString(wb.Build) '生成网页
    

Case "stulist.htm"

    
    'Dim e As RequestEventArgs = args(0)
 
    Dim flt As String
    If e.GetValues.ContainsKey("unfilter") Then '如果有unfilter参数,则清除cookie
        wb.ClearCookie()
    ElseIf e.PostValues.Count > 0 Then '如果是filter.htm访问,则根据用户输入合成条件表达式
        If e.PostValues.ContainsKey("xx") Then
            flt = "学校 = '" & e.PostValues("xx") & "'" '合成条件
            wb.AppendCookie("xx", e.PostValues("xx")) '将值写入cookie中
        Else
            wb.DeleteCookie("xx") '删除cookie
        End If
        If e.PostValues.ContainsKey("bj") Then
            If flt > "" Then
                flt = flt & " and "
            End If
            flt = flt &  "班级 = '" & e.PostValues("bj") & "'"
            wb.AppendCookie("bj", e.PostValues("bj")) '将值写入cookie中
        End If
        
        If e.PostValues.ContainsKey("lry") Then
            If flt > "" Then
                flt = flt & " and "
            End If
            flt = flt &  "录入员 = '" & e.PostValues("lry") & "'"
            wb.AppendCookie("lry", e.PostValues("lry")) '将值写入cookie中
        End If
        
        If e.PostValues.ContainsKey("startdate") Then
            If flt > "" Then
                flt = flt & " and "
            End If
            flt = flt & "录入日期 >= '" & e.PostValues("startdate") & "'"
            wb.AppendCookie("startdate", e.PostValues("startdate"))
        Else
            wb.DeleteCookie("startdate")
        End If
        
        
        If e.PostValues.ContainsKey("enddate") Then
            If flt > "" Then
                flt = flt & " and "
            End If
            flt = flt & "录入日期 <= '" & e.PostValues("enddate") & "'"
            wb.AppendCookie("enddate", e.PostValues("enddate"))
        Else
            wb.DeleteCookie("enddate")
        End If
        
    Else '否则根据Cookie合成条件表达式
        
        If e.Cookies.ContainsKey("xx") Then
            flt = "学校 = '" & e.Cookies("xx") & "'" '合成条件
        End If
        If e.Cookies.ContainsKey("bj") Then
            If flt > "" Then
                flt = flt & " and "
            End If
            flt = flt &  "班级 = '" & e.Cookies("bj") & "'"
        End If
        
        If e.Cookies.ContainsKey("lry") Then
            If flt > "" Then
                flt = flt & " and "
            End If
            flt = flt &  "录入员 = '" & e.Cookies("lry") & "'"
        End If

        If e.Cookies.ContainsKey("startdate") Then
            If flt > "" Then
                flt = flt & " and "
            End If
            flt = flt & "录入日期 >= '" & e.Cookies("startdate") & "'"
        End If
        If e.Cookies.ContainsKey("enddate") Then
            If flt > "" Then
                flt = flt & " and "
            End If
            flt = flt & "录入日期 <= '" & e.Cookies("enddate") & "'"
        End If
    End If

    
[此贴子已经被作者于2021/8/15 21:28:59编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

没有定义表单：http://www.foxtable.com/mobilehelp/topics/0007.htm

 回到顶部
帅哥哟，离线，有人找我吗？
sunion
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：241 积分：2569 威望：0 精华：0 注册：2018/1/11 14:52:00 		  发帖心情 Post By：2021/8/16 11:09:00 [只看该作者]

蓝老师，我修改完之后，依然没有效果，筛选条件合成无效，生成的还是全部表格的数据，不知道问题再哪里，向您请教，谢谢
Case "stufilter.htm"
        wb.AddForm("","form32","stulist.htm")
        With wb.AddInputGroup("form32","ipg1","日常记录数据管理") 
            .AddSelect("xx","学校",schoolname) 
            .AddSelect("lry","录入员",username) 
            With.AddSelect("bj","班级","|" & DataTables("订单表").GetComboListString("班级","[学校] = '" & schoolname & "'"))
        End With
        .AddInput("startdate",“开始日期”,"date")
        .AddInput("enddate","结束时间","date")
        ' End With
    End With
    With wb.AddButtonGroup("form32","btg1",False)
        .Add("btn1", "查询记录","submit")
    End With
    e.WriteString(wb.Build) '生成网页
    
Case "stulist.htm"  
    Dim flt As String
    If e.GetValues.ContainsKey("unfilter") Then '如果有unfilter参数,则清除cookie
        wb.ClearCookie()
    ElseIf e.PostValues.Count > 0 Then '如果是filter.htm访问,则根据用户输入合成条件表达式
        If e.PostValues.ContainsKey("xx") Then
            flt = "学校 = '" & e.PostValues("xx") & "'" '合成条件
            wb.AppendCookie("xx", e.PostValues("xx")) '将值写入cookie中
        Else
            wb.DeleteCookie("xx") '删除cookie
        End If
        If e.PostValues.ContainsKey("bj") Then
            If flt > "" Then
                flt = flt & " and "
            End If
            flt = flt &  "班级 = '" & e.PostValues("bj") & "'"
            wb.AppendCookie("bj", e.PostValues("bj")) '将值写入cookie中
        End If
        If e.PostValues.ContainsKey("lry") Then
            If flt > "" Then
                flt = flt & " and "
            End If
            flt = flt &  "录入员 = '" & e.PostValues("lry") & "'"
            wb.AppendCookie("lry", e.PostValues("lry")) '将值写入cookie中
        End If
        If e.PostValues.ContainsKey("startdate") Then
            If flt > "" Then
                flt = flt & " and "
            End If
            flt = flt & "录入日期 >= '" & e.PostValues("startdate") & "'"
            wb.AppendCookie("startdate", e.PostValues("startdate"))
        Else
            wb.DeleteCookie("startdate")
        End If  
        If e.PostValues.ContainsKey("enddate") Then
            If flt > "" Then
                flt = flt & " and "
            End If
            flt = flt & "录入日期 <= '" & e.PostValues("enddate") & "'"
            wb.AppendCookie("enddate", e.PostValues("enddate"))
        Else
            wb.DeleteCookie("enddate")
        End If        
    Else '否则根据Cookie合成条件表达式
        If e.Cookies.ContainsKey("xx") Then
            flt = "学校 = '" & e.Cookies("xx") & "'" '合成条件
        End If
        If e.Cookies.ContainsKey("bj") Then
            If flt > "" Then
                flt = flt & " and "
            End If
            flt = flt &  "班级 = '" & e.Cookies("bj") & "'"
        End If 
        If e.Cookies.ContainsKey("lry") Then
            If flt > "" Then
                flt = flt & " and "
            End If
            flt = flt &  "录入员 = '" & e.Cookies("lry") & "'"
        End If
        If e.Cookies.ContainsKey("startdate") Then
            If flt > "" Then
                flt = flt & " and "
            End If
            flt = flt & "录入日期 >= '" & e.Cookies("startdate") & "'"
        End If
        If e.Cookies.ContainsKey("enddate") Then
            If flt > "" Then
                flt = flt & " and "
            End If
            flt = flt & "录入日期 <= '" & e.Cookies("enddate") & "'"
        End If
    End If
    。。。。以下是分页代码
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

Case "stulist.htm"  
msgbox(0) ‘能不能弹出’
    Dim flt As String
    If e.GetValues.ContainsKey("unfilter") Then '如果有unfilter参数,则清除cookie
        wb.ClearCookie()
    ElseIf e.PostValues.Count > 0 Then '如果是filter.htm访问,则根据用户输入合成条件表达式
        If e.PostValues.ContainsKey("xx") Then
            flt = "学校 = '" & e.PostValues("xx") & "'" '合成条件
msgbox(flt) ‘能不能弹出
……
End If
msgbox(flt) ‘弹出什么条件？
    。。。。以下是分页代码
 回到顶部
帅哥哟，离线，有人找我吗？
sunion
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：241 积分：2569 威望：0 精华：0 注册：2018/1/11 14:52:00 		  发帖心情 Post By：2021/8/16 11:45:00 [只看该作者]

弄明白了，这个msgbox(flt) 太好用了，逐行逐行帮我检查出错误了，太好了

 回到顶部
帅哥哟，离线，有人找我吗？
sunion
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：241 积分：2569 威望：0 精华：0 注册：2018/1/11 14:52:00 		  发帖心情 Post By：2021/8/16 13:01:00 [只看该作者]


[此贴子已经被作者于2021/8/16 13:10:06编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.08594 秒, 4 次数据查询