移动开发时怎么根据条件加载模板文件生成表当前想根据筛选条件来进行数据后台筛选导出 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

If bzlb > "" Then '如果输入表彰类别

If Flt > "" Then

Flt = Flt & " And "

End If

Flt = Flt & "表彰类别 = '" & bzlb & "'"

End If

dim ar() as string = {bzlb,Flt}

Return ar

……

haixuandaochu页面代码如下：运行提示页面无法显示

Dim e As RequestEventArgs = args(0)

Dim wb As New weui

Dim flt As String

Dim bzlb As String '表彰类别

If e.GetValues.ContainsKey("unfilter") Then '如果是取消筛选

wb.ClearCookie() '清除Cookie

Else

dim ar() as string = Functions.Execute("getbiaozhang",e, wb) '根据输入内容合成条件,注意WeUI也需要传递过去

bzlb = ar(0)

flt =ar(1)

End If

msgbox(bzlb)

if 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 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

主题：移动开发时 怎么根据条件加载模板文件生成表 当前想根据筛选条件 来进行数据后台筛选导出