Dim e As RequestEventArgs = args(0)
Dim wb As New weui
Dim flt As String
If e.GetValues.ContainsKey("unfilter") Then '如果是取消筛选
wb.ClearCookie() '清除Cookie
Else
flt = Functions.Execute("getbiaozhang",e, wb) '根据输入内容合成条件,注意WeUI也需要传递过去
End If
if e.Cookies("bzlb")="个人表彰" then
Dim Book As New XLS.Book(ProjectPath & "Attachments\【模板】表彰（个人）统计表.xlsx")
book.AddDataTable("表彰","黔南宣传","Sel ect * from {表彰} where" & flt)
e.WriteBook(book,"shaixuandaochu.xls",False)
else
if e.Cookies("bzlb")="集体表彰" then
Dim Book1 As New XLS.Book(ProjectPath & "Attachments\【模板】表彰（集体）统计表.xlsx")
book1.AddDataTable("表彰","黔南宣传","Sele ct * from {表彰} where" & flt)
e.WriteBook(book1,"shaixuandaochu.xls",False)
end if
end if
getbiaozhang代码：可以正常获取结果值
Dim dwmc As String '单位名称
Dim bzlb As String '表彰类别
Dim Flt 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
bzlb = e.PostValues("表彰类别")
wb.Appendcookie("bzlb", bzlb)
Else
wb.DeleteCookie("bzlb")
End If
Else '否则从Cookie中提取筛选条件
If e.Cookies.ContainsKey("bzlb") Then
bzlb = e.Cookies("bzlb")
End If
End If
If bzlb > "" Then '如果输入表彰类别
If Flt > "" Then
Flt = Flt & " And "
End If
Flt = Flt & "表彰类别 = '" & bzlb & "'"
End If
Return Flt
加好友 
发短信
Post By：2021/2/25 11:55:00 [只看该作者]
