2011-01-17 13 views
2

iam, der Exportfunktionalität in asp.net1.1 tut .... Ich möchte einige Aufzeichnungen in roter Farbe hervorheben, wenn ich exportiere ... folgend ist mein Code, um Datensätze in Excel zu exportieren, aber ich möchte einige Datensätze in roten Farben ... So, wie Sie dies tun plz helfen mir aus.Wie Farben im Export zeigen, um in asp.net zu übertreffen

Public Shared Sub ExportToExcelInvitee(ByVal query As String, _ 
             ByRef Response As System.Web.HttpResponse, _ 
             Optional ByVal exportDataset As DataSet = Nothing) 
     Dim index As Integer 
     Dim colIndex As Integer 
     Dim columnCount As Integer 
     Dim excelDataSet As DataSet 
     Dim cnt As Integer 

     Const PROC As String = CLASSNAME & ".ExportToExcelInvitee" 
     Try 

      If IsNothing(exportDataset) Then 
       excelDataSet = ExecuteDataset(query) 
      Else 
       excelDataSet = exportDataset 
      End If 

      If Not IsNothing(excelDataSet) Then 
       If excelDataSet.Tables(0).Rows.Count <> 0 Then 

        Response.Clear() 
        Response.ContentType = "application/vnd.ms-excel" 
        Response.Charset = "" 
        Response.AddHeader("Content-Disposition", "attachment; filename=List.xls") 

        Response.Write("<TABLE border=1>") 
        Response.Write("<TR>") 
        Response.Write("<TD><DIV align=center><B>Sr. No.</B></DIV></TD>") 
        columnCount = excelDataSet.Tables(0).Columns.Count - 1 
        For index = 2 To columnCount 

         Response.Write("<TD>" & _ 
              "<DIV align=center>" + _ 
               "<B>" & excelDataSet.Tables(0).Columns(index).ColumnName.ToString & "</B>" + _ 
              "</DIV>" & _ 
             "</TD>") 

        Next 
        Response.Write("</TR>") 
        Response.Write("<TR>") 
        ' Loop to leave one empty line after header, 
        ' Loopimg to add the TD with black boders which doens not get added if only TR added 
        For index = 2 To columnCount 
         Response.Write("<TD></TD>") 
        Next 
        Response.Write("</TR>") 

        cnt = 1 
        For index = 0 To excelDataSet.Tables(0).Rows.Count - 1 
         If Not (excelDataSet.Tables(0).Rows(index).RowState = DataRowState.Deleted) Then 

          Response.Write("<TR>") 
          Response.Write("<TD>" & _ 
               "<DIV align=left>" & _ 
                (cnt).ToString() & _ 
               "</DIV>" & _ 
              "</TD>") 
          For colIndex = 2 To columnCount 

           Response.Write("<TD valign=top>" & _ 
                "<DIV align=left>" & _ 
                 excelDataSet.Tables(0).Rows(index).Item(colIndex).ToString() & _ 
                "</DIV>" & _ 
               "</TD>") 

          Next 
          Response.Write("</TR>") 
          cnt = cnt + 1 
         End If 
        Next 
        Response.Write("</TABLE>") 
        Response.End() 

       End If 'DataSet must contain data 
      End If 'DataSet must contain data 

     Catch ex As Exception 
      Call ErrorLog(PROC & ", " & ex.Source, ex.Message) 
     End Try 

    End Sub 

Antwort

2

In Ihrem Fall, das wäre einfach:

<TD style='color: red'>Some value</TD> 
1

Ich kann nicht sehen, wo Sie entscheiden, welche Zellen rot hervorgehoben werden sollte - jedoch sind, da Sie im Grunde eine HTML-Tabelle ausgegeben wird, sollten Sie in der Lage sein Standard-Markup verwenden entweder die ‚Farbe‘ zu ändern oder 'backgroundColor'-Attribut für dieses HTML-Element.

Verwandte Themen