以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  [求助]移动开发表格边框颜色  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=140533)

--  作者：haotinghua --  发布时间：2019/9/7 17:46:00 --  [求助]移动开发表格边框颜色 希望在移动开发中，边框呈现第一行无边框，第二行底部边框出现（竖边框无），第三行无边框，第四行底部边框出现，一次奇偶出现边框底部

--  作者：有点蓝 --  发布时间：2019/9/8 20:49:00 --   需要逐个单元格控制样式： Select Case e.Path     Case "test.htm"         Dim wb As New WeUI         wb.AppendHTML("<style>.mark{background-color:red; color:white;}</style>", True) \'添加样式         With wb.AddTable("","Table1")             .Attribute= "border=\'2\'"             .head.AddRow("部门","姓名","年龄","地址")              With .body.AddRow()                   .AddCell("技术部", "style=\'border:red solid 1px\'") \'逐个单元格增加                 .AddCell("李四", "style=\'border:red solid 1px\'") \'第二个参数用于设置单元格的Attribute属性                 .AddCell("38", "style=\'border:red solid 1px\'") \'用AddCell可以一次添加多个单元格                 .AddCell("中国上海", "style=\'border:red solid 1px\'")             End With             With .body.AddRow()                  .AddCell("技术部2", "style=\'border-left: 0px;border-right:0px\'") \'逐个单元格增加                 .AddCell("李四", "style=\'border-left: 0px;border-right:0px\'") \'第二个参数用于设置单元格的Attribute属性                 .AddCell("38", "style=\'border-left: 0px;border-right:0px\'") \'用AddCell可以一次添加多个单元格                 .AddCell("中国上海", "style=\'border-left: 0px;border-right:0px\'")             End With             With .body.AddRow()                  .AddCell("技术部3", "style=\'border-left: 0px;border-right:0px;border-top:red solid 1px\'" ) \'逐个单元格增加                 .AddCell("李四", "style=\'border-left: 0px;border-right:0px;border-top:red solid 1px\'") \'第二个参数用于设置单元格的Attribute属性                 .AddCell("38", "style=\'border-left: 0px;border-right:0px;border-top:red solid 1px\'") \'用AddCell可以一次添加多个单元格                 .AddCell("中国上海",  "style=\'border-left: 0px;border-right:0px;border-top:red solid 1px\'")             End With         End With         e.WriteString(wb.Build) End Select

--  作者：haotinghua --  发布时间：2019/9/8 22:38:00 --   谢谢蓝老师

--  作者：haotinghua --  发布时间：2019/9/9 0:48:00 --   追加： .head.AddRow的格式如何设置(放在什么位置）？ 用wb.AppendHTML("<style>.mark{background-color:red; color:white;}</style>", True) \'添加样式 类似的操作方法没有成功

--  作者：有点蓝 --  发布时间：2019/9/9 9:04:00 --   标题行的样式可以这样设置         With wb.AddTable("","Table1")             .head.AddRow("<span style=\'color:red\'>部门</span>","姓名","年龄","电话","地址")