Dim e As RequestEventArgs = args(0)
Dim UserInfo As Win.YPD.UserInfo = args(1)
Dim wb As New WeUI
'供应商新品申请
'Case "gys_xpsq.htm"
If e.PostValues.Count = 0 Then '请求为0时
wb.Title = "供应商新品申请" '添加标题
wb.AppendHTML("<script src='./lib/ajaxform.js'></script>", True) '引入脚本文件
wb.AddToptips("", "toptip1", "") '用于显示动态错误提示
wb.AddForm("", "form1", "handle.htm") '指定接收表单数据的的页面为handle.htm里去做保存
'表单字段内容--》》》
With wb.AddInputGroup("form1", "ipg1", "供应商新品申请")
'字段名 显示名 类型 .input属性
.AddInput("填表日期", "<label style='color:red;'>填表日期</label>", "date")
.AddInput("品名", "<label style='color:red;'>品名</label>", "text").Placeholder = "请输入文本"
.AddInput("规格", "<label style='color:red;'>规格</label>", "text").Placeholder = "含量在前+数量"
.AddInput("生产企业", "<label style='color:red;'>生产企业</label>", "text").Placeholder = "全称"
End With
'原操作按钮
'With wb.AddButtonGroup("form1", "btg1", False) '生成换页按钮
'
.Add("btn1", "测试", "button").Attribute = " style=""position:fixed;bottom: .10em;left: 0;right: 0;"" "
'位置固定底部
' .Add("btn1", "新增", "button").Attribute = ""
'提交(按钮单击调用函数)
' .Add("btn1", "保存", "button").Attribute = ""
'提交(按钮单击调用函数)
'.Add("btn1", "保存", "submit")
'提交
' .Add("btn2", "重置", "reset") '重置
' .Add("btnLast", "返回", "", "default.htm") '超链接
'End With
'参考按钮：
wb.InsertHTML("<style>.fox_h_button_group{position: fixed;bottom: .52em;left: 0;right: 0;}</style>")
With wb.AddButtonGroup("form1","btg1", False)
With .Add("btn0", "新增", "button").Attribute = ""
'.Kind = 0
End With
With .Add("btn1", "保存", "button").Attribute = ""
'.Kind = 0
End With
With .Add("btn2", "重置", "reset")
'.Kind = 0
End With
With .Add("btnLast", "返回", "", "default.htm")
'.Kind = 0
End With
End With
With wb.AddDialog("", "dlg1", "错误", "") '增加订单失败提示框
.AddButton("btnOK", "确定")
End With
With wb.AddDialog("", "dlg2", "提示", "当前数据添加成功,是否继续新增?") '增加订单成功提示框
.AddButton("btnYes", "继续新增").Attribute = ""
.AddButton("btnNo", "新品记录", "gys_xpsq_st.htm").Kind = 1
End With
e.WriteString(wb.Build) '
End If '判断结束
Return Nothing
加好友 
发短信
Post By：2018/11/5 11:38:00 [显示全部帖子]
此主题相关图片如下：错误.jpg