编辑页面也用浮层来实现，但由于编辑页面会有PAGE及KEY等其他参数，如何改写下面代码片段？
list.htm页面
...
Add("mnuEdit", "编辑记录").Attribute ="on c l i ck=""openPopup('pop02')"""
...
With ExWeUI.WebUI.AddPopup("pop02","edit.htm?id=2",3) '由于一个页面添加了多个popup,id参数用于区分设置popup里面的页面的控件id,避免出现重复控件ID
.Width = "70%" '内容区域宽度
.ZIndex = "100"
wb.InsertHTML("",.BuildHtml)
End With
edit.htm页面
Dim id As String = e.GetValues("id") 'id参数用于区分设置popup里面的页面的控件id,避免出现重复控件ID
Dim Page As Integer '页码变量
If e.GetValues.ContainsKey("page") Then '如果地址中有page参数
Integer.TryParse(e.GetValues("page"), page) '提取page参数
End If
Dim PageNumber As Integer = e.GetValues("page")
Dim PrimaryKey As Integer = e.GetValues("key")
Dim PageURL = "List.htm?page=" & PageNumber
If PrimaryKey <> -1 Then
If e.PostValues.Count = 0 Then '生成编辑页面
Dim dr As DataRow = DataTables("ShouZhi").SQLFind("[szid]=" & PrimaryKey)
If dr IsNot Nothing Then
wb.AddTopTips("","toptip1","必填项填写完整!")
wb.AddForm("","form1","edit.htm?key=" & PrimaryKey & "&page=" & PageNumber).Attribute = "" '调
[此贴子已经被作者于2022/3/14 16:17:59编辑过]
加好友 
发短信
Post By：2022/3/10 17:44:00 [只看该作者]
此主题相关图片如下：qq截图20220311173800.png
