Dim url As String = "EditBProDetail.htm?page=" & page & "&did=" & xr("ID") & "&oid=" & oid '传递页码和明细ID
If e.PostValues.Count > 0 Then
xr("Code") = e.PostValues("Code")
xr("Title") = e.PostValues("Title")
xr.Save()
wb.AddToast("", "t1", "已经保存", 0).Msec = 500
End If
wb.AddForm("", "form1", url)
With wb.AddInputGroup("form1", "ipg1", "编辑明细")
.AddHiddenValue("did", xr("ID"))
.AddInput("Code", "编号", "text").Value = xr("Code")
.AddInput("Title", "名称", "text").Value = xr("Title")
End With
With wb.AddButtonGroup("form1", "btg1", False)
.Add("btnok", "确定", "submit")
.Add("btnBack", "取消", "", "Edit.htm?page=" & Page & "&oid=" & oid)
End With
wb.AppendHTML("<script src='./lib/order.js'></script>") '引入脚本文件
e.WriteString(wb.Build) '生成网页
加好友 
发短信
Post By：2025/2/23 22:25:00 [显示全部帖子]
