- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 甜老师还没休息。。等我一下问个问题。。。 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=110465)
-- 发布时间：2017/12/3 23:20:00
-- 甜老师还没休息。。等我一下问个问题。。。
甜老师还没休息。。等我一下问个问题。。。
正在编辑，马上
-- 发布时间：2017/12/3 23:26:00
--
Dim wb As New weui
wb.AppendHTML("<script src=\'http://res.wx.qq.com/open/js/jweixin-1.2.0.js\'></script>",True) \'引入JS-SDK库
wb.AppendHTML("<script src=\'./lib/jssdk.js\'></script>") \'引入脚本文件
wb.AppendHTML("<script src=\'./lib/ajaxform.js\'></script>") \'引入脚本文件
If e.PostValues.Count = 0 Then
\'开始正常生成网页内容
wb.AddForm("","form1","daka.htm")
With wb.AddInputGroup("form1","ipg1","打卡人信息")
With .AddSelect("姓名","姓名","|" & DataTables("排班表").sqlGetComboListString("姓名","[门店编号] = \'" & mdbh & "\'"))
.Attribute = """
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "保存", "submit").Attribute= ""
End With
With wb.AddDialog("","dlg1", "恭喜","打卡成功") \'增加订单成功提示框
.AddButton("btnYes","朕知道了","default.htm")
End With
wb.AppendHTML("<script src=\'./lib/ajaxform.js\'></script>") \'引入脚本文件
e.WriteString(wb.Build) \'生成网页
Else
Dim nms() As String = {"姓名","班次","打卡类型"}
For Each nm As String In nms
If e.PostValues.ContainsKey(nm) = False Then
e.WriteString("亲,请选择" & nm & "哦!") \'返回错误消息
Return "" \'必须返回
End If
Next
e.WriteString("OK") \'返回增加成功消息
End If
没有显示样式，只有一句话
[此贴子已经被作者于2017/12/3 23:29:55编辑过]
-- 发布时间：2017/12/3 23:29:00
--
调试提示这个错误：
此主题相关图片如下：微信截图_20171203232834.png
-- 发布时间：2017/12/3 23:55:00
--
原来是少写了
With wb.AddDialog("","dlg2", "温馨提示","") \'增加订单失败提示框
.AddButton("btnOK","好的,我回去选择")
End With
。
但是现在的问题是 出现了这个对话框，马上就跳去 那句话。不知道怎么回事自动跳转
-- 发布时间：2017/12/4 0:06:00
--
甜老师，这是为什么已经出来dlg2的对话框了，还会自动马上跳转到没有对话框的 亲，请选择 姓名 这个呢
-- 发布时间：2017/12/4 0:20:00
--
你js代码写了什么？
你点击保存按钮 .Add("btn1", "保存", "submit") 会直接提交你的表单的，你试试换成 button
-- 发布时间：2017/12/4 0:22:00
--
妈呀，真的是这个问题。谢谢甜老师！！