With wb.AddTable("","Table1")
.attribute ="table border='1'style = 'text-align:center;line-height: 120% '"
' .PageNumber = page '设置页码
.ActiveSheet = "menu" '指定菜单
.Primarykey = "_Identify" '指定主键,只要是能唯一区分行的列即可,并非一定要表的实际主键.Functions.Execute("edit")
.CreateFromDataTable(dt, False,"","","姓名","角色","班级","电话")
End With
'设计菜单
With wb.AddActionSheet("","menu")
.Add("mnuEdit", "编辑信息").Attribute =""
.Add("mnuEdit", "电话联系","tel:13696057348")
wb.AppendCookie("XSsfzh",e.GetValues("jsoid"))
.Add("mnuDelete", "删除信息").Attribute ="""
.Add("mnuback","返回","",True).Attribute = ""
End With
With wb.AddDialog("","dlg1", "你确定要删除当前老师信息吗?","如果是调出本校请用调出处理")
.AddButton("btnCancel","取消").Kind = 1
.AddButton("btnOK","确定").Attribute = ""
End With
wb.AppendHTML("<script src='./lib/order.js'></script>") '引入脚本文件
e.WriteString(wb.Build)
红色的tel:13696057348取选定表中的电话列的值
加好友 
发短信
Post By：2017/9/16 10:15:00 [显示全部帖子]
