主题：没有用表格组件，怎么传递主键参数？

Select Case e.Path

    Case "test.htm"

        Dim wb As New WeUI

        With wb.AddDialog("","dlg1", "提示","您的订单正在派送,请注意查收!")

            .AddButton("btnok","确定","edit.htm")

        End With

        Dim txt As String = "由各种物质组成的巨型球状天体,叫做星球.星球有一定的形状,有自己的运行轨道."

dim r as row = tables("表A").rows(0)

        With wb.AddPanelGroup("","pg1","图文组合列表")

            With .Add("pn1","标题二",txt,"./images/search.png") '带子链接

                .AddFoot("文字来源1")

                .AddFoot("时间1")

                .AddFoot("<a onclick=""myshow('dlg1','" & r("_Identify") & "')"" style='color:blue'>|其他信息1</a>","")

            End With

r  = tables("表A").rows(1)

            With .Add("pn2","标题二",txt,"./images/search.png") '带子链接

                .AddFoot("文字来源")

                .AddFoot("时间")

                .AddFoot("<a onclick=""myshow('dlg1','" & r("_Identify") & "')"" style='color:blue'>|其他信息2</a>","")

            End With

        End With

                wb.AppendHTML("<script src='./test.js'></script>") 

        e.WriteString(wb.Build) '生成网页

    Case "edit.htm"

        e.WriteString(e.GetValues("id"))

End Select