Dim dr As DataRow = DataTables("药品订单").SQLFind("[_Identify]=" & PrimaryKey)
If dr IsNot Nothing Then
wb.AddForm("","form1","ypedit.htm?key=" & PrimaryKey & "&page=" & PageNumber)
With wb.AddInputGroup("form1","ipg1","编辑订单")
.AddInput("药品名称","药品名称","text").Value = dr("药品名称")
With .AddInput("价格","价格","number")
.Readonly = True
.Value = dr("价格")
End With
With .AddInput("数量","数量","number")
.Value = dr("数量")
.Attribute = ""
End With
With .AddInput("金额","金额","number")
.Step = "0.01"
.Value = dr("金额")
End With
.AddInput("入库日期","入库日期","date")
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
Else
With wb.AddMsgPage("","msgpage","编辑失败", "此订单可能已经被删除!") '提示用户此订单不存在.
.icon= "Warn"
.AddButton("btn1","返回",PageURL) '生成返回原来页面的按钮
End With
End If
Else '保存编辑结果
Dim dr As DataRow = DataTables("药品订单").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.AddToast("","t1", "编辑完成",0).Visible = True
e.WriteString("<meta http-equiv='refresh' c>")
Else
With wb.AddMsgPage("","msgpage","保存失败", "此订单可能已经被删除!") '提示用户此订单不存在.
.icon= "Warn"
.AddButton("btn1","返回",PageURL) '生成返回原来页面的按钮
End With
End If
End If
加好友 
发短信
Post By：2019/10/15 8:38:00 [只看该作者]
此主题相关图片如下：11.jpg
