1、要提交数据，请使用普通按钮：http://www.foxtable.com/mobilehelp/topics/0008.htm2、可以用到内部函数，
函数
Dim e As RequestEventArgs = args(0)
e.ResponseEncoding = "gb2312"
Select Case e.Path
Case "Reports\bg"
Vars("gg") = e.PostValues("gg")
cmd.CommandText="select t1.编号,t1.单据状态,t1.报告类型,t2.产品名称,t2.规格,t1.生产日期_开始 as 生产日期,t1.批次,t1.结论,t1.质检员,t1.制单,t1.审核,t1.批准 from 质检报告主表 t1 ,成品有出厂检验 t2 where t1.编号= t2.编号 and t1.生产日期_开始='"& Vars("scrq") &"' And t2.产品名称='"& Vars("cpmc") &"' And t2.规格='"& Vars("gg") &"'"
MessageBox.Show(cmd.CommandText)
'Dim ddt As DataTable= cmd.ExecuteReader
'If ddt.DataRows.count>=1 Then
'
'Dim r As DataRow= ddt.DataRows(0)
'e.AsyncExecute = True
''Functions.AsyncExecute("baogao",e,r)
'End If
' e.WriteBookAsHTML(Book)
Case Else
e.AsReportServer("Reports/")
End Select
httprequest调用
……
Case "getProducts.htm"
Dim vals As String
cmd.CommandText="select t1.产品名称,t2.生产日期_开始,t1.规格 from 质检报告主表 t2 inner join 成品有出厂检验 t1 on t1.编号=t2.编号 where t2.生产日期_开始= '"& e.PostValues("scrq") &"'"
Dim dt As DataTable= cmd.ExecuteReader
If e.PostValues.Count = 1 Then
vals = "|" & dt.GetComboListString("产品名称","生产日期_开始='" & e.PostValues("scrq") & "'")
Vars("scrq") = e.PostValues("scrq")
ElseIf e.PostValues.Count = 2 Then
Dim Filter As String = "生产日期_开始='" & e.PostValues("scrq") & "' And 产品名称='" & e.PostValues("cpmc") & "'"
Vars("cpmc") = e.PostValues("cpmc")
vals = "|" & Dt.GetComboListString("规格", Filter)
'MessageBox.Show(filter)
End If
e.WriteString(vals)
End Select
If e.Path.StartsWith("Reports\")
Functions.Execute("xx函数",e)
endif
3、要下载不能使用网页格式，要发送xls或者pdf文件
[此贴子已经被作者于2021/8/12 11:41:35编辑过]
加好友 
发短信
Post By：2021/8/11 10:45:00 [显示全部帖子]
