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编辑过]
加好友 
发短信
Post By：2017/12/3 23:20:00 [只看该作者]
此主题相关图片如下：微信截图_20171203232834.png