专家坐堂-请问，wuei,经过筛选后的表格中如何将选中的行赋值到另外一个网页？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

下面的代码是上面的网址复制过来的。alert(\'编辑订单页码:\'+table1.pagenumber+ \'主键:\'+ table1.primarykey) 这行代码能弹出主键值，那么请问如何将这一行的所有值赋值到另外一个网页呢？

Dim wb As New WeUI
        With wb.AddActionSheet("","menu") \'设计菜单
            .Add("mnudAdd", "增加订单").Attribute="""
            .Add("mnuEdit", "编辑订单").Attribute ="""
            .Add("mnuDelete", "删除订单").Attribute ="""
            .Add("mnuCancel","取消","",True)
        End With
        \'根据此页数据生成网页
        With wb.AddTable("","Table1")
            .PageNumber = page \'设置页码
            .ActiveSheet = "menu"
             Dim nms() As String = {"NO.","产品","客户","数量","单价","日期"}
            .Head.AddRow(nms)
             For Each r As DataRow In dt.DataRows
                With .Body.AddRow(r("NO."),r("产品"),r("客户"),r("数量"))
                    .Primarykey = r("_Identify") \'设置主键
                    .AddCell(Format(r("单价"),"#0.00"))
                    .AddCell(Format(r("日期"),"MM月dd日"))
                End With
            Next
        End With