下面代码如何在弹出的浮层中编辑完数据后单击确定，成功则当前编辑浮层自动关闭并刷新LIST数据，如果有必填字段未填则提示？
Dim PrimaryKey As Integer = e.GetValues("key")
Dim PageURL = "List.htm?page=" & PageNumber
If e.PostValues.Count = 0 Then '生成编辑页面
Dim dr As DataRow = DataTables("订单2").SQLFind("[_Identify]=" & PrimaryKey)
If dr IsNot Nothing Then
wb.AddForm("","form1","edit.htm?key=" & PrimaryKey & "&page=" & PageNumber)
With wb.AddInputGroup("form1","ipg1","编辑订单")
.AddInput("产品","产品","text").Value = dr("产品")
.AddInput("客户","客户","text").Value = dr("客户")
.AddInput("数量","数量","number").Value = dr("数量")
With .AddInput("单价","单价","number")
.Step="0.01"
.Value = dr("单价")
End With
.AddInput("日期","日期","date").Value = dr("日期")
End With
Else
With wb.AddMsgPage("","msgpage","编辑失败", "此订单可能已经被删除!") '提示用户此订单不存在.
.icon= "Warn"
.AddButton("btn1","返回",PageURL) '生成返回原来页面的按钮
End With
End If
Else '保存编辑结果
Dim dr As DataRow = DataTables("订单2").SQLFind("[_Identify]=" & PrimaryKey)
If dr IsNot Nothing Then
Dim nms() As String = {"产品","客户","数量","单价","日期"}
For Each nm As String In nms
dr(nm) = e.PostValues(nm)
Next
dr.Save()
'显示完成提示,2妙手自动返回原来的页面
wb.AppendHtml("<meta http-equiv='refresh' c>",True)
wb.AddToast("","t1", "编辑完成",0).Visible = True
Else
With wb.AddMsgPage("","msgpage","保存失败", "此订单可能已经被删除!") '提示用户此订单不存在.
.icon= "Warn"
.AddButton("btn1","返回",PageURL) '生成返回原来页面的按钮
End With
End If
End If
wb.AppendHTML("<script src='./lib/cjhsetCodes.js'></script>")
wb.AppendHTML("<script src='./lib/ajaxform.js'></script>")
wb.AppendHTML("<script src='./lib/cjhtable.js'></script>")
e.WriteString(wb.Build) '生成网页
加好友 
发短信
Post By：2022/3/15 17:55:00 [只看该作者]
