Dim e As RequestEventArgs = args(0)
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/setFocus1.js'></script>")
wb.AppendHTML("<script>document.getElementById('card').focus();</script>")
If e.PostValues.Count = 0 Then
wb.AddForm("","form1","card.htm")
With wb.AddInputGroup("form1","ipg1","卡号资料")
.AddInput("card","卡号","Text").Attribute=""
End With
'以下取消
'With wb.AddButtonGroup("form1","btg1",True)
' .Add("btn1", "确定", "submit")
'End With
e.WriteString(wb.Build)
Else
Dim nms() As String = {"card"} '不能为空的列名数组
For Each nm As String In nms
If e.PostValues.ContainsKey(nm) = False Then '生成错误提示页
With wb.AddMsgPage("","msgpage","增加失败", nm & "列不能为空!")
.icon = "Warn" '改变图标
.AddButton("btn1","返回").Attribute = ""
End With
e.WriteString(wb.Build)
Return "" '必须返回
End If
Next
nms = New String() {"card"} '重新定义了nms数组,增加了两列.
Dim dr As DataRow = DataTables("cardline").AddNew()
For Each nm As String In nms
If e.PostValues.ContainsKey(nm) Then
dr(nm) = e.PostValues(nm)
End If
Next
'保存并生成增加成功提示页面
dr("update") = Date.Today
dr.save()
With wb.AddMsgPage("","msgpage","增加成功", "从BI取盘点数据") '生成成功提示页
.AddButton("btn1","继续增加","card.htm")
End With
e.WriteString(wb.Build)
End If
e.WriteString(wb.Build)
是这样改吗？
加好友 
发短信
Post By：2018/3/12 20:09:00 [只看该作者]
