对GetGridTableHtml的更改,导出更美观的Excel

夜冰

1. Private Function GetGridTableHtml(ByVal grid As Grid) As String
   
2.         Dim sb As New StringBuilder()
   
3.         sb.Append("<table cellspacing=""0"" rules=""all"" border=""1"" style=""height:100%;width:100%;border-collapse:collapse;"">")
   
4.         sb.Append("<tr class=""gvHeader"" >")
   
5.         For Each column As GridColumn In grid.Columns
   
6.             sb.AppendFormat("<td style=""font-size: 12px; background-color: #CCCCCC; line-height: 26px; text-align: center; vertical-align: middle;height:30px"">{0}</td>", column.HeaderText)
   
7.         Next
   
8.         sb.Append("</tr>")
   
9.         For Each row As GridRow In grid.Rows
   
10.             Dim rq = row.Values(row.Values.Length - 1)
    
11.             If rq = "" Then
    
12.                 sb.Append("<tr class=""gvRow"">")
    
13.             Else
    
14.                 sb.Append("<tr class=""gvRow"">")
    
15.             End If
    
16. 
    
17.             For Each value As Object In row.Values
    
18.                 Dim html As String = value.ToString()
    
19.                 If html.Contains("box-grid-static-checkbox") Then
    
20.                     If html.Contains("box-grid-static-checkbox-uncheck") Then
    
21.                         html = "×"
    
22.                     Else
    
23.                         html = "√"
    
24.                     End If
    
25.                 End If
    
26.                 If html.Contains("<img") Then
    
27.                     Dim prefix As String = Request.Url.AbsoluteUri.Replace(Request.Url.AbsolutePath, "")
    
28.                     html = html.Replace("src=""", "src=""" & prefix)
    
29.                 End If
    
30.                 If rq = "" Then
    
31.                     sb.AppendFormat("<td style=""font-size: 12px;line-height: 26px; text-align: center; vertical-align: middle;height:26px"">{0}</td>", html)
    
32.                 Else
    
33.                     sb.AppendFormat("<td style=""background-color:lightgreen;text-align: center; vertical-align: middle;height:26px;font-size: 12px;"">{0}</td>", html)
    
34.                 End If
    
35. 
    
36.             Next
    
37.             sb.Append("</tr>")
    
38.         Next
    
39.         sb.Append("</table>")
    
40.         Return sb.ToString()
    
41.     End Function

复制代码

以上代码对导出excel的每行设置了行高,设置了背影色,文字水平居中,并可根据不同的内容更改背景色,我导出的内容最后一列是日期格式的,如果日期不为空则更改背景色.导出后的效果如下图.

yygy

多谢分享

舞柯庶

{:soso_e179:}

tom

这个具体是怎么用的？

delphi9

是啊，怎么用的啊，是不是下面的代码？这代码会把当前页面关闭啊
Response.ClearContent();
            Response.AddHeader("content-disposition", "attachment; filename=MyExcelFile.xls");
            Response.ContentType = "application/excel";
            Response.Write(GetGridTableHtml(Grid1));
            Response.End();

水木山人

Mark一下～