Dim e As RequestEventArgs = args(0)
Dim wb As New weui

Dim Page As Integer \'页码变量
If e.GetValues.ContainsKey("page") Then \'如果地址中有page参数
    Integer.TryParse(e.GetValues("page"), page) \'提取page参数
End If

Dim oid As String
If e.GetValues.ContainsKey("oid") Then \'如果地址中有主表ID参数
    oid = e.GetValues("oid") \'提取主表ID参数
End If

Dim xr As DataRow
If e.GetValues.ContainsKey("did") Then \'如果地址中有明细ID参数
    xr = DataTables("明细表").SQLFind("ID = \'" & e.GetValues("did") & "\'")
    Dim url As String = "EditDetail.htm?page=" & page & "&did=\'" & xr("ID") & "\'" & "&oid=\'" & oid & "\'" \'传递页码和明细ID
    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
End IfIf e.PostValues.Count > 0 Then \'如果是通过提交按钮访问,则给一个已经保存的提示给用户,时长500毫秒

wb.AddToast("", "t1", "已经保存", 0).Msec = 500
End If
wb.AppendHTML("<script src=\'./lib/order.js\'></script>") \'引入脚本文件
e.WriteString(wb.Build) \'生成网页