做了下调整,不用test来接收reports/bg的页面内容 wb.AddPageTitle("","ph1",""," 告查询")
'wb.AddForm("","form1","Reports/bg")
wb.AddForm("","form1","test.htm")
增加了下面代码
If e.PostValues.Count = 0 Then
wb.AddPageTitle("","ph1","","中 检报告查询")
'wb.AddForm("","form1","Reports/bg")
wb.AddForm("","form1","test.htm")
With wb.AddInputGroup("form1","ipg1","查询条件")
With .AddInput("scrq","生产日期","date")
。。。。
e.WriteString(wb.Build) '生成网页
Else
Vars("sql")= "s elect t1.编号,t1.单据状态,t1.报告类型,t2.产品名称,t2.规格,t1.生产日期_开始 as 生产日期,t1.批次,t1.结论,t1.质检员,t1.制单,t1.审核,t1.批准 from 质检报告主表 t1 ,成品有出厂检验 t2 where t1.编号= t2.编号 and t1.生产日期_开始='"& e.PostValues("scrq") &"' And t2.产品名称='"& e.PostValues("cpmc") &"' And t2.规格='"& e.PostValues("gg") &"'"
e.WriteString("<meta http-equiv='Refresh' c>") '那么直接跳转到登录页面
Return '必须的
在手机,电脑上都可以使用了。
此主题相关图片如下:微信截图_20210927213744.png
不足的地方就是 使用了全局变量Vars("sql"),这里我不知道怎么处理更好,怎么样才可以不使用全局变量呢
在reports/bg中 如果直接写,e.PostValues 没有数值
[此贴子已经被作者于2021/9/27 21:44:10编辑过]