奇怪的很，查出数据，动态菜单没有起作用，不弹出消息，是哪里问题？？
Case "LuDanList2.htm" '路单-列表2 筛选生成
.....
'合成网页
wb.InsertHTML("","<div id='div1' style='overflow-x:auto;width:200%'>")
With wb.AddTable("","Table1")
.PageNumber = page '设置页码
.Primarykey = "_Identify" '设置主键
.CreateFromDataTable(dt)
'生成汇总行
If EndRow >= Count Then
.Body.AddRow("","","总计","","","","","","",Format(je,"#0.00"),"", Format(shj,"#0.0"),"","").Attribute = "style='background-color:#FFFF00'"
End If
.AfterSelChange = "dynaActiveSheet('" & e.Cookies("uname") & "')" '置顶选择不同单元格后要执行的js行数,注意区分大小写
'设置表格样式
.ColWidth = "12px,120px,100px,120px,120px,150px,150px,150px,120px,100px,100px,40px,150px,100px" '设置列宽
.Highlight = 1 '高亮显示
.Alternate = 2 '每两行显示一个不同背景颜色的行
.RowHead = 1
.ActiveSheet = "menu" '指定菜单
End With
wb.InsertHTML("","</div>")
With wb.AddButtonGroup("","btg2", False)
If page > 0 Then
.Add("btnFirst", "第一页","","LuDanList2.htm?page=0")
.Add("btnPrev", "上一页","","LuDanList2.htm?page=" & page - 1)
Else
.Add("btnFirst", "第一页","button").Kind = 1
.Add("btnPrev", "上一页","button").Kind = 1
End If
If Endrow < count Then
.Add("btnNext", "下一页","","LuDanList2.htm?page=" & page + 1)
.Add("btnLast", "最末页","","LuDanList2.htm?page=" & pages - 1)
Else
.Add("btnNext", "下一页","button").Kind = 1
.Add("btnLast", "最末页","button").Kind = 1
End If
End With
With wb.AddButtonGroup("","btg3", False)
If flt = "" Then
.Add("btnflt", "筛选", "","LuDanFilter2.htm").kind = 1
Else
.Add("btnunflt", "重新筛选", "","LuDanFilter2.htm")
.Add("btnunflt", "取消筛选", "","index.htm")
End If
End With
With wb.AddActionSheet("","menu") '设计菜单
.Add("mnuCopy", "复制路单").Attribute ="on click='copy(""mnuCopy2"")'" '"mnuCopy2" '分类,多个页面的菜单提交到复制页面,用于在复制页面区分是从哪个页面提交的.
.Add("mnuEdit", "编辑路单").Attribute ="on click='edit()'"
.Add("mnuDelete", "删除路单").Attribute ="on click='del()'"
End With
wb.AppendHTML("<script src='./lib/anqy1.js'></script>") '引入脚本文件
e.WriteString(wb.Build)
'================================合计行和非本人数据不弹出菜单
function dynaActiveSheet(uname){
alert(uname);
alert(table1.rows[table1.rowSel].cells[2].innerHTML);
alert(table1.rows[table1.rowSel].cells[13].innerHTML);
if(table1.rows[table1.rowSel].cells[2].innerHTML=="总计" || table1.rows[table1.rowSel].cells[13].innerHTML!=uname ){
hide("menu");
}
else {
show("menu");
}
}
[此贴子已经被作者于2020/12/14 14:58:44编辑过]
加好友 
发短信
Post By：2020/12/14 10:35:00 [显示全部帖子]
此主题相关图片如下：微信截图_20201214152219.png
