- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]手机编辑 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=121166)
-- 发布时间：2018/6/30 11:43:00
-- [求助]手机编辑
移动应用进入后，点编辑订单，怎么没反应
-- 发布时间：2018/6/30 11:49:00
--
具体代码说明
-- 发布时间：2018/6/30 12:49:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:新建文本文档.txt |
对已录入的数据进行修改或审核，点增加订单或者点编辑订单无反应，不跳转到新的增加页面或编辑页面，请老师指教
[此贴子已经被作者于2018/6/30 12:58:36编辑过]
-- 发布时间：2018/6/30 14:40:00
--
table.js内容看看
-- 发布时间：2018/6/30 15:47:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:table.js.txt |
-- 发布时间：2018/6/30 16:03:00
--
HttpRequest代码？
-- 发布时间：2018/6/30 17:04:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:新建文本文档 (2).txt |
-- 发布时间：2018/6/30 17:46:00
--
不要放到函数，直接放到HttpRequest
Select Case e.path
Case "logon.htm" \'登录页面
wb.AddPageTitle("","pageheader","费用报销系统","由北京花都家美公司开发")
If e.PostValues.ContainsKey("username") AndAlso e.PostValues.ContainsKey("password") Then \'判断是否是验证失败后的重新登录
wb.AddTopTips("","toptip1","用户名或密码错误!").msec = 2000 \'如果用户通过登录按钮访问,则给用户一个2秒的提示.
End If
wb.AddForm("","form1","logon.htm")
With wb.AddInputGroup("form1","ipg1")
.AddInput("username","户名","text")
.AddInput("password","密码","password")
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "登录", "submit")
End With
Case "exit.htm" \'退出登录
wb.DeleteCookie("username") \'清除cookie中原来的用户名和密码
wb.DeleteCookie("password")
wb.InsertHTML("<meta http-equiv=\'Refresh\' c>") \'那么直接跳转到登录页面
Case "", "default.htm" \'首页
wb.AddPageTitle("","pageheader","费用报销系统","由北京花都家美公司开发")
With wb.AddGrid("","g1")
.Add("c1","运费明细", "./images/button.png").Attribute = ""
.Add("c2","投标费用明细", "./images/cell.png", "list.htm")
.Add("c12","退出", "./images/exit.png", "exit.htm") \'退出登录
End With
Case "list.htm"
Functions.Execute("List",e)
Case "addnew.htm"
Functions.Execute("AddNew",e)
Case "edit.htm"
Functions.Execute("Edit",e)
Case "delete.htm"
Functions.Execute("Delete",e)
End Select