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
请问老师，我在红部分，要合并列，同时设置单元格样式怎么做？这样设置没有效呢
加好友 
发短信
Post By：2018/10/11 22:23:00 [只看该作者]
