请问前面筛选的我已经设置好了，但考虑针对筛选的结果点击报告详情的菜单能运行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编辑过]
加好友 
发短信
Post By：2018/1/31 11:38:00 [只看该作者]
