web服务找不到报错位置 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

看2楼红色字用法，直接提交，不要画蛇添足加些莫名其妙的用法

参考二楼代码做了测试，在电脑上访问测试没问题，直接打开pdf，手机浏览器上测试提示下pdf文件

电脑上查询最终界面，跳转的地址也是对的

此主题相关图片如下：微信截图_20210927200933.png

在手机端企业微信里打开出现页面不变，一直一个状态。感觉地址跳转不了，实际上程序已经执行完了

以前是直接打开pdf

此主题相关图片如下：微信截图_20210927200618.png

[此贴子已经被作者于2021/9/27 20:11:14编辑过]

这个是企业微信或者手机的问题。正常微信自己是无法直接打开pdf文件的，需要依赖手机能够打开pdf的其它app，比如QQ浏览器，wps等。

谢谢您这么晚还在加班，之前是可以直接打开的。我下载个qq浏览器试试，能加上个判断，如果本机没有安装qq浏览器给个提示呢？

我安装了qq浏览器，还是一样的不动，不下载也不直接打开，一直停留在上图

安装了pdf app 也是这样

这个是地址 http://www.cofcohz.com.cn:1234/test.htm#

[此贴子已经被作者于2021/9/27 20:23:17编辑过]

我安装了qq浏览器，还是一样的不动，不下载也不直接打开，一直停留在上图

安装了pdf app 也是这样

这个是地址 http://www.cofcohz.com.cn:1234/test.htm#

应该是微信的原因，微信屏蔽了文件的外链下载

应该不是这个问题，在电脑微信中可以打开

不是一回事。手机和电脑的行为不一样的

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

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