Foxtable(狐表)用户栏目专家坐堂 → 设置合并单元格样式


  共有414人关注过本帖树形打印复制链接

主题:设置合并单元格样式

帅哥哟,离线,有人找我吗?
刘林
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1334 积分:9994 威望:0 精华:0 注册:2016/4/28 9:58:00
设置合并单元格样式  发帖心情 Post By:2018/10/11 22:23:00 [只看该作者]

 
        With wb.AddTable("","Table1")
            .head.AddRow(cps).Attribute="style='font-size:20px;color:blue;white-space:nowrap;' align='center;'"
            Dim i As Integer=0
            For Each cp As String In cps '添加列标题
                Sheet(0, i).Value = cp
                i=i+1
            Next
            For r As Integer=0 To lst.Count-1
                With .body.AddRow()
                    .addcell(r+1)
                    Sheet(r +1, 0).Value = r+1
                    Dim j As Integer=1
                    For Each nm As String In nms
                        .AddCell(lst(r)(nm))
                        Sheet(r +1, j).Value = lst(r)(nm)
                        j=j+1
                    Next
                End With
            Next
           wb.AppendHTML("<style>.mark{background-color:red; color:white;}</style>", True) '添加样式
            For Each bjList As String In bjlists
                With .body.AddRow()
                    .AddCell(bjlist & "平均分","colspan='4',class='mark'")
                    For Each js As String In jss
                        Dim xs As String = format(DataTables("成绩").sqlCompute("Avg(" & js & ")","[单位名称] = '" & e.Cookies("userdw") & "'And [考试名称] = '" & e.PostValues("ksmc") & "' and [班级全称] = '" & bjlist & "' and 学段= '" & e.PostValues("xd") & "'"),"#.00")
                        .addcell(xs)
                    Next
                    .AddCell(" ","colspan='3'")
                End With
            Next
            .ActiveSheet = "menu"
        End With

请问老师,我在红部分,要合并列,同时设置单元格样式怎么做?这样设置没有效呢


 回到顶部
帅哥,在线噢!
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:74262 积分:372438 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/10/11 22:41:00 [只看该作者]

比如

 

.AddCell(bjlist & "平均分","colspan='4' class='mark' style='color:red;'")


 回到顶部