Foxtable(狐表)用户栏目专家坐堂 → web服务找不到报错位置


  共有3522人关注过本帖平板打印复制链接

主题:web服务找不到报错位置

帅哥哟,离线,有人找我吗?
aidimeng
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:739 积分:7223 威望:0 精华:0 注册:2015/9/14 14:26:00
  发帖心情 Post By:2021/9/27 21:43:00 [只看该作者]

做了下调整,不用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编辑过]

 回到顶部
总数 37 1 2 3 4 下一页