专家坐堂-想实现当页面状态列值为√ 隐藏开始学习菜单反之显示开始学习菜单Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  想实现当页面状态列值为√ 隐藏开始学习菜单反之显示开始学习菜单  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=150672)

--  作者：李孝春
--  发布时间：2020/6/4 13:08:00
--  想实现当页面状态列值为√ 隐藏开始学习菜单反之显示开始学习菜单

此主题相关图片如下：11.jpg

想实现当页面状态列值为√ 隐藏开始学习菜单反之显示开始学习菜单
当前"√" 和"×" 都显示开始学习菜单麻烦老师看看怎么纠正
js内容：
function dynaActiveSheet(){
if(table1.rows[table1.rowSel].cells[2].innerHTML=="√"){
hide("mnuEdit");
}
else{
show("mnuEdit");
}
}
页面代码：
Dim wb As New WeUI
With wb.AddActionSheet("","menu") \'设计菜单
.Add("mnuEdit", "开始学习").Attrib ute ="on click=""getxuexi();"""
.Add("mnuCancel","取消","",True)
End With
\'根据此页数据生成网页

With wb.AddTable("","Table1")
.AfterSelChange = "dynaActiveSheet()" \'置顶选择不同单元格后要执行的js行数,注意区分大小写
.PageNumber = page \'设置页码
.ActiveSheet = "menu" \'设置菜单
.RowHead = 1 \'左边第一列作为行头
.head.AddRow("序号","内容","状态")
.ColWidth="18px,,20px"
For Each dr As DataRow In dt.DataRows
With .body.AddRow()
.Primarykey =dr("_Identify")
Dim s As String = dr("内容")
If s.Length > 10 Then
s = s.SubString(0,25) & "..."
End If
Dim s1 As String
If dr("状态") =True Then
s1 ="√"
Else
s1 ="×"
End If
.AddCells(dr("NO."),s,s1)\'逐个单元格增加
End With
Next
End With

[此贴子已经被作者于2020/6/4 13:11:33编辑过]

--  作者：有点蓝
--  发布时间：2020/6/4 14:01:00
--
没有引用js文件

--  作者：李孝春
--  发布时间：2020/6/4 14:29:00
--  回复：（有点蓝）没有引用js文件
老师引用了的
完整代码如下：
Dim e As RequestEventArgs = args(0)
Dim page As Integer = 0 \'默认page为0,显示第一页
Dim pageRows As Integer = 10 \'每页15行
If e.GetValues.Contai nsKey("page") Then \'如果地址中有page参数
Integer.TryParse(e.GetValues("page"), page) \'提取page参数
End If
Dim StartRow As Integer = page * pageRows + 1 \'此页第一行
Dim EndRow As Integer = (page + 1) * pageRows \'此页最后一行
\'获取该页数据
Dim cmd As New SQLC ommand
cmd.ConnectionN am e = "智慧党建" \'记得设置数据源名称
cmd.CommandT ext = "Sele ct Cou nt(*) From {学习内容列表} where 学习人员=\'" & e.Cookies("姓名") & "\'"
Dim Count As Integer = cmd.Exe cuteScalar() \'获取总的行数
cmd.Comm andText = "Sel ect * From (Sele ct Row_Number() Over(Order by _Identify) As [NO.],[_Identify],内容,学习标志 as 状态 From 学习内容列表 where 学习人员=\'" & e.Cookies("姓名") & "\') As a "
cmd.CommandText = cmd.Comma ndText & " Where [NO.]>= " & StartRow & " And [NO.] <= " & EndRow
Dim dt As DataTable = cmd.ExecuteReader

\'生成菜单
Dim wb As New WeUI
With wb.AddActionSheet("","menu") \'设计菜单
.Add("mnuEdit", "开始学习").Attribute ="on cl ick=""getxuexi();"""
.Add("mnuCancel","取消","",True)
End With
\'根据此页数据生成网页

With wb.AddTable("","Table1")
.AfterSelChange = "dynaActiveSheet()" \'置顶选择不同单元格后要执行的js行数,注意区分大小写
.PageNumber = page \'设置页码
.ActiveSheet = "menu" \'设置菜单
.RowHead = 1 \'左边第一列作为行头
.head.AddRow("序号","内容","状态")
.ColWidth="18px,,20px"
For Each dr As DataRow In dt.DataRows
With .body.AddRow()
.Primarykey =dr("_Identify")
Dim s As String = dr("内容")
If s.Length > 10 Then
s = s.SubString(0,25) & "..."
End If
Dim s1 As String
If dr("状态") =True Then
s1 ="√"
Else
s1 ="×"
End If
.AddCells(dr("NO."),s,s1)\'逐个单元格增加
End With
Next
End With
With wb.AddButtonGroup("","btg2", False)
If page > 0 Then
.Add("btnPrev", "上一页","","getxuexiList.htm?page=" & page - 1)
End If
If Endrow < count Then
.Add("btnNext", "下一页","","getxuexiList.htm?page=" & page + 1)
End If
End With
wb.AppendHTML("<script src=\'./lib/ajaxform.js\'></script>") \'引入脚本文件
e.WriteString(wb.Build)

--  作者：有点蓝
--  发布时间：2020/6/4 14:43:00
--
确定js文件了有这个函数？

function dynaActiveSheet(){
alert(table1.rows[table1.rowSel].cells[2].innerHTML); //调试代码
alert(table1.rows[table1.rowSel].cells[2].innerHTML=="√");
if(table1.rows[table1.rowSel].cells[2].innerHTML=="√"){
hide("mnuEdit");
}
else{
show("mnuEdit");
}
}

--  作者：李孝春
--  发布时间：2020/6/4 16:48:00
--  回复：（有点蓝）确定js文件了有这个函数？function d...
确定楼上的js内容
能够弹出符号和true或false
但是开始学习菜单就是没有对应实现隐藏
去掉
alert(table1.rows[table1.rowSel].cells[2].innerHTML); //调试代码
alert(table1.rows[table1.rowSel].cells[2].innerHTML=="√");
直接不弹出符号和true或false了
开始学习菜单项依旧显示貌似没有起作用和帮助例子中的技术部字样显示或隐藏菜单项目1 所实现效果不一样

而且为什么每一行都要点两次才会有弹出菜单项呢？

[此贴子已经被作者于2020/6/4 16:59:32编辑过]

--  作者：有点蓝
--  发布时间：2020/6/4 17:02:00
--

alert(table1.rows[table1.rowSel].cells[2].innerHTML); 这里弹出什么内容
alert(table1.rows[table1.rowSel].cells[2].innerHTML=="√");这里弹出什么内容

--  作者：有点蓝
--  发布时间：2020/6/4 17:03:00
--

function dynaActiveSheet(){
alert(table1.rows[table1.rowSel].cells[2].innerHTML); //调试代码
alert(table1.rows[table1.rowSel].cells[2].innerHTML=="√");
if (table1.rows[table1.rowSel].cells[2].innerHTML=="√"){
alert(\'1\');
hide("mnuEdit");
}
else{
alert(\'2\');
show("mnuEdit");
}
}

--  作者：李孝春
--  发布时间：2020/6/4 17:31:00
--  回复：（有点蓝）function dynaActiveSheet(){alert(t...

红色部分不弹值
function dynaActiveSheet(){
alert(table1.rows[table1.rowSel].cells[2].innerHTML); //调试代码
alert(table1.rows[table1.rowSel].cells[2].innerHTML=="√"); 弹出√ 和true 或者X和false
if (table1.rows[table1.rowSel].cells[2].innerHTML=="√"){
alert(\'1\');
hide("mnuEdit");
}
else{
alert(\'2\');
show("mnuEdit");
}
}

--  作者：有点蓝
--  发布时间：2020/6/4 20:43:00
--
实例和js文件发上来

--  作者：李孝春
--  发布时间：2020/6/5 8:44:00
--  回复：（有点蓝）实例和js文件发上来
js文件项目文件在压缩包里面 js文件和项目文件的位置一致
以下内容是专门发给有点蓝浏览

[此贴子已经被作者于2020/6/5 8:44:54编辑过]