If e.Path.StartsWith("Reports\")
e.Resp
Select Case e.Path
Case "Reports\list.htm"
Dim flt As String
If e.PostValues.ContainsKey("product") Then
flt = "姓名 = '" & e.PostValues("product") & "'"
End If
If e.PostValues.ContainsKey("product1") Then
If flt > "" Then
flt = flt & " and "
End If
flt = flt & "年 = '" & e.PostValues("product1") & "'"
End If
If e.PostValues.ContainsKey("product2") Then
If flt > "" Then
flt = flt & " and "
End If
flt = flt & "月 = '" & e.PostValues("product2") & "'"
End If
Dim Book As New XLS.Book(ProjectPath & "Attachments\工资条.xls")
book.AddDataTable("工资明细表","KPRJ","select * From 工资明细表 where " & flt)
e.WriteBookAsPDF(Book)
Case Else
e.AsReportServer("Reports\")
End Select
Else
Select Case e.Path
Case "filter.htm"
wb.AddForm("","form1","Reports/list.htm")
With wb.AddInputGroup("form1","ipg1","数据筛选")
Dim bh As String = e.Cookies("username")
Dim bh2 As String = "[" & e.Cookies("username") & "]"
Dim ddr1 As DataRow= DataTables("Users").SQLFind("Name='"& e.Cookies("username") &"' " )
If ddr1 IsNot Nothing AndAlso ddr("Group") = "管理"
Dim sl2 As String = "|" & DataTables("Users").SQLGetComboListString("Name") & "|"
sl2 = sl2.replace(bh,bh2).TrimEnd("|")
.AddSelect("product","用户姓名",sl2 )
Else
.AddSelect("product","用户姓名",bh2 )
End If
Dim sl3 As String = "" & DataTables("工资明细表").SQLGetComboListString("年") & ""
.AddSelect("product1","年",sl3 )
Dim sl4 As String = "" & DataTables("工资明细表").SQLGetComboListString("月") & ""
.AddSelect("product2","月",sl4 )
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "Reports\jianli.htm")
.Add("btn2","返回", "","default.htm") '退出登录
End With
e.WriteString(wb.Build) '生成网页
End Select
End If
加好友 
发短信
Post By：2021/7/20 17:06:00 [只看该作者]
此主题相关图片如下：qq浏览器截图20210720172351.png