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