- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 移动开发：如何得到list（列表）的当前ID或text？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=112984)
-- 发布时间：2018/1/6 8:37:00
-- 移动开发：如何得到list（列表）的当前ID或text？
点击列表时，如何得到当前ID或text？我想通过它来生成明细。
-- 发布时间：2018/1/6 9:04:00
--
哪个列表？
http://www.foxtable.com/mobilehelp/scr/0103.htm
-- 发布时间：2018/1/6 9:24:00
--
http://www.foxtable.com/mobilehelp/scr/0076.htm
说的这个，谢谢
-- 发布时间：2018/1/6 9:34:00
--
With wb.AddListGroup("", "lsg1","简单列表")
.Add("ls1", "新浪主页").Attribute = "onclick=\'alert(this.id + ""|"" + this.innerText)\'"
.Add("ls2", "网易主页")
End With
-- 发布时间：2018/1/6 19:52:00
--
谢谢，值是提示了。但我实际使用的时候得到的值却是“undefined”，请分析赐教。
1、函数（.js）代码为：
function 列表明细(){
location="liebiao.htm?列表ID=" + this.id + "&列表text=" + this.innerText;
}
2、调用代码为：
Dim e As RequestEventArgs = args(0)
Dim wb As New WeUI \'定义一个基于weui框架的网页生成器
With wb.AddListGroup("", "lsg1","简单列表")
.Add("ls1", "新浪主页").Attribute = "onclick=\'alert(this.id + ""|"" + this.innerText)\'"
.Add("ls2", "网易主页").Attribute = "onclick= \'列表明细()\'"
End With
wb.AppendHTML("<script src=\'./lib/表格.js\'></script>") \'引入脚本文件（函数）
e.WriteString(wb.Build)
3、liebiao.htm?页面代码为：
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
wb.AddPageTitle("","页面标题ID","aaaaa","bbbbbbb")
wb.InsertHTML("<h1 face=\'宋体\' align=\'center\' style=""margin-top:5px; color:LimeGreen"">" & e.GetValues("列表ID") & "|" & e.GetValues("列表text") & "</h1>")
e.WriteString(wb.Build) \'生成网页
以上代码得到两个参数值均为：undefined，是哪里的问题呢？
[此贴子已经被作者于2018/1/6 21:01:00编辑过]
-- 发布时间：2018/1/7 17:51:00
--
-- 发布时间：2018/1/7 18:45:00
--
.Add("ls2", "网易主页").Attribute = "onclick= \'列表明细(this)\'"
--------------
function 列表明细(obj){
location="liebiao.htm?列表ID=" + obj.id + "&列表text=" + obj.innerText;
}
-- 发布时间：2018/1/7 22:47:00
--
