以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]web筛选完传递主键问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=114189)
--  作者：benwong2013
--  发布时间：2018/1/31 11:38:00
--  [求助]web筛选完传递主键问题
请问前面筛选的我已经设置好了，但考虑针对筛选的结果点击报告详情的菜单能运行reportlist。htm将满足主键的数据列出，请问菜单这里应该如何操作？

 .Add("mnuEdit", "报告详情").Attribute ="""

取筛选之后选择菜单之后代码：
        With wb.AddActionSheet("","menu") \'设计菜单
            .Add("mnuEdit", "报告详情").Attribute ="""
            .Add("mnuCancel","取消","",True)
        End With
        \'根据此页数据生成网页
        With wb.AddTable("","Table1")
            .PageNumber = page \'设置页码
            .Primarykey = "_Identify" \'设置主键
            .ActiveSheet = "menu" \'设置菜单
            .CreateFromDataTable(dt)
        End With
        
        With wb.AddButtonGroup("","btg2", False)
            If page > 0 Then
                .Add("btnPrev", "上一页","","List.htm?page=" & page - 1)
            End If
            If Endrow < count Then
                .Add("btnNext", "下一页","","List.htm?page=" & page + 1)
            End If
            If flt  = "" Then
                .Add("btn1", "返回", "","filter.htm").kind = 1
            Else
                .Add("btn1", "取消筛选", "","filter.htm").kind = 1
            End If
        End With
    Case "reportlist.htm"
        Dim PrimaryKey As Integer = e.GetValues("key")
        Dim dr As DataRow = DataTables("T_Report").SQLFind("[_Identify]=" & PrimaryKey)
        If dr IsNot Nothing Then
            With wb.AddTable("","Table2")
                Dim nms() As String = {"报告编号","检测项目","开单日期","记录日期"}
                .Head.AddRow(nms)
                For Each r As DataRow In DataTables("T_Item").Select("报告编号 = \'"& dr("报告编号") &"\'")
                    With .Body.AddRow(r("报告编号"),r("检测项目"))
                        .AddCell(Format(r("开单日期"),"MM月dd日"))
                        .AddCell(Format(r("记录日期"),"MM月dd日"))
                    End With
                Next
            End With
            e.WriteString(wb.Build)
        End If
End Select
e.WriteString(wb.Build)
[此贴子已经被作者于2018/1/31 11:38:41编辑过]
--  作者：有点甜
--  发布时间：2018/1/31 11:52:00
--  
.Add("mnuEdit", "报告详情").Attribute ="onclick=""location=\'/reportlist.htm?key=\' + table1.primarykey"""