Case "addnew.htm"
' MessageBox.Show(e.PostValues.count)
If e.PostValues.Count = 0 Then
wb.AddForm("", "form1", "addnew.htm") '指定接收表单数据的的页面为handle.htm
With wb.AddInputGroup("form1", "ipg1", "新增订单")
.AddInput("客户", "客户", "text")
.AddInput("日期", "日期", "date")
.AddInput("产品", "产品", "text")
.AddInput("数量", "数量", "number")
.AddInput("单价", "单价", "number").Step = 0.1
End With
With wb.AddButtonGroup("form1", "btg1", True)
.Add("btn1", "确定", "button").Attribute = ""
End With
With wb.AddDialog("", "dlg1", "提示", "增加订单成功,是否继续增加?") '增加订单成功提示框
.AddButton("btnYes", "是").Attribute = ""
.AddButton("btnNo", "否", "http://www.foxtable.com").Kind = 1
End With
With wb.AddDialog("", "dlg2", "错误", "") '增加订单失败提示框
.AddButton("btnOK", "确定")
End With
wb.AppendHTML("<script src='./lib/ajaxform.js'></script>") '引入脚本文件
e.WriteString(wb.Build)
Else
' MessageBox.Show(1)
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
Dim dr As DataRow = DataTables("订单").AddNew()
For Each nm As String In nms
dr(nm) = e.PostValues(nm)
Next
dr.Save()
e.WriteString("OK") '返回增加成功消息
End If
这样改了，没有反应
加好友 
发短信
Post By：2024/4/15 9:36:00 [只看该作者]
此主题相关图片如下：无标题.png
