Dim bj As String  \'订单编号
Dim xsxm As String  \'产品
Dim Filter As String   \'条件表达式
Dim e As RequestEventArgs =  args(0)
Dim wb As  WeUI = args(1)
If e.PostValues.Count > 0 Then \'如果是通过表单输入了筛选条件
    If e.PostValues.ContainsKey("班级") Then
        bj =  e.PostValues("班级")
        wb.Appendcookie("bj", bj)
    Else
        wb.DeleteCookie("bj")
    End If
    If e.PostValues.ContainsKey("学生姓名") Then
        xsxm =  e.PostValues("学生姓名")
        wb.Appendcookie("xsxm", xsxm)
    Else
        wb.DeleteCookie("xsxm")
    End If
Else \'否则从Cookie中提取筛选条件
    If e.Cookies.ContainsKey("bj") Then
        bj =  e.Cookies("bj")
    End If
    If e.Cookies.ContainsKey("xsxm") Then
        xsxm = e.Cookies("xsxm")
    End If
End If
If bj > "" Then  \'如果输入了订单编号,其他条件可以忽略
    If xsxm > "" Then  \'如果输入产品
        filter = "班级 = \'" & bj & "\' and 学生姓名 = \'" & xsxm & "\'"
    Else
        filter ="班级 = \'" & bj & "\'"
    End If
Else
    If xsxm >"" Then
        filter = "学生姓名 = \'" & xsxm & "\'"
    Else
        filter = ""
    End If
End If
Return  Filter

学做筛选提示错误解

在应使用条件的上下文(在 \'初中2016级3班\' 附近)中指定了非布尔类型的表达式。   请问老师上什么原因

老师，查到了，谢谢

If e.GetValues.ContainsKey("unfilter") Then
    wb.ClearCookie() \'清除Cookie
Else
    Filter =  Functions.Execute("GetFilter",e,wb)\'合成条件表达式
End If

取消筛选清除的cookie 点list的下一页就反回到登录了呢

Dim e As RequestEventArgs = args(0)
\'保存订单
Dim  wb As New weui
Dim dr1 As DataRow = DataTables("用户").sqlfind("身份证号 = \'" & e.Cookies("username") & "\'")
Dim dr As DataRow = DataTables("学生信息").SQLFind("[_Identify] = " &  e.GetValues("oid"))
If ValidPIN(e.postvalues("身份证号"))= False
    With wb.AddMsgPage("","msgpage","注册失败", "身份证号不正确或不规范")
        .icon = "Warn" \'改变图标
        .AddButton("btn1","返回").Attribute = ""
    End With
   e.WriteString(wb.Build)
 \'   Return() \'必须返回
End If

Dim nms() As String =  {"身份证件号","学生姓名","学籍号","联系电话","民族","政治面貌","户口性质","家庭住址","健康状况","状态"}
For Each nm As String In nms
    If e.PostValues.ContainsKey(nm) Then
        dr(nm)= e.PostValues(nm)
    End  If
Next
dr.Save()

老师，我想判断下身份证是否标准，这样调用目标错误