- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 移动终端不能正常显示 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=123773)
-- 发布时间：2018/8/22 17:53:00
-- 移动终端不能正常显示
这是我写的自定义函数，在httprequest 中调用，原来显示正常用，后来我不知调整了什么地方，之后就不显示了，手机主菜单中调用时，该页面空白，没有任可显示
-- 发布时间：2018/8/22 17:56:00
--
这个附件是主菜单界面，调用的是工段考核，就是这个自定义函数
此主题相关图片如下：1111.png
-- 发布时间：2018/8/22 20:04:00
--
wb.AddPageTitle("","ph1","工段考核","新能凤凰(滕州)有限公司")
Select Case e.Path
Case "gdkh.htm" \'工段考核
wb.AddForm("","form1","receive.htm") \'"receive.htm")
Dim st2,st3,st4,st5 As String \'列表字串
st2=dt.SQLGetComboListString("set2","set1=\'装置\'") \'装置名称
If st2> "" Then
st2="|" & st2 \' 增加一个空选项,为的是只有一个选项时,可以改变当前值,便于二级选项选择
Else
With wb.AddMsgPage("","msg_gdkh","工段考核提示:","没找到装置划分标准,请与管理员联系!")
.AddButton("btn2","返回首页","default.htm").Kind=1
End With
e.WriteString(wb.Build)
return “”
End If
Dim kh As String= dt.SQLGetComboListString("set2","set1=\'工段长考核标准\'") \'考核维度
If kh>"" Then
kh="|" & kh
Else
With wb.AddMsgPage("","msg_gdkh","工段考核提示:","没找到考核标准,请与管理员联系!")
.AddButton("btn2","返回首页","default.htm").Kind=1
End With
e.WriteString(wb.Build)
return “” End If
其它地方看不出什么问题。httprequest代码看看
[此贴子已经被作者于2018/8/22 20:03:58编辑过]
-- 发布时间：2018/8/23 15:12:00
-- httprequest内容
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:httprequest.txt |
这是httprequest内容，请老师帮助看看，什么原因，网页不能正常显示
-- 发布时间：2018/8/23 15:32:00
--
Case "gdkh.htm" ,"gdkh1.htm", "gdkh2.htm" ,"gdkh3.htm", "gdkh4.htm","gdkh5.htm","khcx.htm","khcx1.htm","receive.htm","tishi.htm" \'工段考核
Functions.Execute("gdkh",e)
return \'不能重复调用e.WriteString，这里必须返回
-- 发布时间：2018/8/23 15:41:00
--
在httprequest中，每个case 中，调用函数后，均要加return吗?
问题是，以前不加return,也正常显示，现在，我把gdkh函数，写成简单的几个控件，它也不显示了。
-- 发布时间：2018/8/23 15:47:00
-- 加上return，好了，可以显示了，谢谢老师
加上return，好了，可以显示了，谢谢老师
-- 发布时间：2018/8/23 15:53:00
--
总之不能重复调用e.WriteString，函数里面调用了，外部就不需要。自己检查代码
-- 发布时间：2018/8/23 16:55:00
-- 移动端不支持手机拍照
由于微信不支持手机拍照，我用本论坛的例子，在我上传的这个自定义函数中，但是点按钮，没反应，不能调用摄像头及文件选择器。
With wb.AddInputGroup("form1","ipg2","事件描述")
.AddTextArea("事件描述",4).Placeholder = "请输入200字以内的备注"
With .AddInputCell("ic4") \'通过InputCell增加输入框onclick
.AddVcodeButton("img1","选择相片",0) \'增加获取验证码按钮,2表示显示在右边
wb.InsertHTML("<img id=\'test\' src=\'\'width=\'50px\' height=\'50px\'>")
End With
End With
-- 发布时间：2018/8/23 16:59:00
--
没有绑定事件，当然没有反应。
使用别人的例子测试有没有问题？