以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 移动开发时 怎么根据条件加载模板文件生成表 当前想根据筛选条件 来进行数据后台筛选导出 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=160892) |
-- 作者:cnsjroom -- 发布时间:2021/2/25 11:55:00 -- 移动开发时 怎么根据条件加载模板文件生成表 当前想根据筛选条件 来进行数据后台筛选导出 移动开发时 怎么根据条件加载模板文件生成表 当前想根据筛选条件 来进行数据后台筛选导出 shaixuandaochu页面无法显示 也没有按照条件进行对应的数据导出操作 经查:语句生成内容为: sele ct * from {表彰} where表彰类别=\'个人表彰\' 怎么把红色这个地方 弄成 where 表彰类别 这样呢? shaixuandaochu页面代码如下:运行提示页面无法显示 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 [此贴子已经被作者于2021/2/25 12:02:48编辑过]
|
-- 作者:有点蓝 -- 发布时间:2021/2/25 12:03:00 -- 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 end if |
-- 作者:cnsjroom -- 发布时间:2021/2/25 12:12:00 -- 回复:(有点蓝)If bzlb > "" Then '如果输入表彰... 经查:语句生成内容为: sele ct * from {表彰} where表彰类别=\'个人表彰\' 怎么把红色这个地方 弄成 where 表彰类别 这样呢? |
-- 作者:有点蓝 -- 发布时间:2021/2/25 13:32:00 -- where后面加个空格 book1.AddDataTable("表彰","黔南宣传","Sele ct * from {表彰} where " & flt)
|
-- 作者:cnsjroom -- 发布时间:2021/2/25 14:08:00 -- 回复:(有点蓝)where后面加个空格book1.AddDataTabl... 加了没有用 加空格字符编码也没有用 搞不清楚到底哪里出了问题 麻烦老师看看 |
-- 作者:有点蓝 -- 发布时间:2021/2/25 14:18:00 -- 请上传实例测试 |