- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 亮度不够 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=127554)
-- 发布时间：2018/11/16 14:48:00
-- 亮度不够
With wb.AddTable("","Table1")
.Highlight = 0 \'关闭高亮显示功能
.RowHead = 1
.head.AddRow("","部门","姓名","年龄","电话","地址")
.body.AddRow("1","技术部","张三","36","110","中国北京")
.body.AddRow("2","技术部","李四","38","110","中国上海")
.body.AddRow("3","技术部","王五","39","110","中国深圳")
.body.AddRow("4","生产部","赵六","39","110","中国深圳")
.body.AddRow("5","生产部","刘七","39","110","中国深圳")
End With
e.WriteString(wb.Build)
-- 发布时间：2018/11/16 16:03:00
--
比如
Select Case e.Path
Case "test.htm",""
Dim wb As New weui
With wb.AddTable("","Table1")
.Highlight = 0 \'关闭高亮显示功能
.RowHead = 1
.head.AddRow("","部门","姓名","年龄","电话","地址")
.body.AddRow("1","技术部","张三","36","110","中国北京")
.body.AddRow("2","技术部","李四","38","110","中国上海")
.body.AddRow("3","技术部","王五","39","110","中国深圳")
.body.AddRow("4","生产部","赵六","39","110","中国深圳")
.body.AddRow("5","生产部","刘七","39","110","中国深圳")
End With
wb.InsertHTML("<style>.fox_table tr.sel, .fox_table tr.alt, .fox_table td.sel{ background-color: red;}</style>")
e.WriteString(wb.Build)
End Select
-- 发布时间：2018/11/16 16:14:00
--
这是新代码的亮度，还是不明显。
此主题相关图片如下：无标题.png
-- 发布时间：2018/11/16 16:56:00
--
你没有用到weui？
http://www.foxtable.com/mobilehelp/scr/0011.htm
-- 发布时间：2018/11/17 10:11:00
--
这三个文件是有的。
此主题相关图片如下：无标题.png
-- 发布时间：2018/11/17 11:57:00
--
肯定没有用到，或者没有放对地方，否则2楼代码不会是3楼的效果