-----------------------------------------------------------
New Message on BDOTNET
-----------------------------------------------------------
From: Sooraj
Message 2 in Discussion
Hi
The following code may help you. This should be in a
new aspx page. Call Convert method by passing the
DataView object (The datasource of your datagrid).
Private Const MY_CSS_FILE As String =
"../CSS/Style.css"
Public Sub Convert(ByVal ds As DataView)
Dim ExpColumn As BoundColumn
Dim ExpTemplateColumn As TemplateColumn
Dim ExpLink As HyperLinkColumn
Dim grdWidth As Double
'first let's clean up the response.object
Response.Clear()
Response.Charset = ""
'set the response mime type for excel
Response.ContentType =
"application/vnd.ms-excel"
Response.AddHeader("Content-Type",
"application/vnd.ms-excel")
Response.AddHeader("Content-Disposition",
"inline; filename=Matches.xls")
'create a string writer
Dim stringWrite As New System.IO.StringWriter
'create an htmltextwriter which uses the
stringwriter
Dim htmlWrite As System.Web.UI.HtmlTextWriter
= New System.Web.UI.HtmlTextWriter(stringWrite)
GetWriter(htmlWrite)
'instantiate a datagrid
Dim dg As New DataGrid
dg.AutoGenerateColumns = False
'set the datagrid datasource to the dataset
passed in
dg.DataSource = ds.Table
dg.ItemStyle.CssClass = "DATAGRID_CELLDATA"
dg.HeaderStyle.CssClass = "DATAGRID_HEADING"
'bind the datagrid
With dg
.Columns.Clear()
ExpColumn = New BoundColumn
ExpColumn.DataField = "BU_Recon_Ref"
ExpColumn.HeaderText = "Booking Unit
Recon. Ref."
.Columns.Add(ExpColumn)
ExpColumn = New BoundColumn
ExpColumn.DataField = "BU_Ref"
ExpColumn.HeaderText = "Booking Unit Ref."
.Columns.Add(ExpColumn)
ExpColumn = New BoundColumn
ExpColumn.DataField = "FID_Ref"
ExpColumn.HeaderText = "FID Reference"
.Columns.Add(ExpColumn)
ExpColumn = New BoundColumn
ExpColumn.DataField = "Ctry_Cd"
ExpColumn.HeaderText = "Country"
.Columns.Add(ExpColumn)
ExpColumn = New BoundColumn
ExpColumn.DataField = "Bnk_Cd"
ExpColumn.HeaderText = "Bank"
.Columns.Add(ExpColumn)
ExpColumn = New BoundColumn
ExpColumn.DataField = "Prod_Cd"
ExpColumn.HeaderText = "Product"
.Columns.Add(ExpColumn)
ExpColumn = New BoundColumn
ExpColumn.DataField = "Prod_Cd"
ExpColumn.HeaderText = "Product"
.Columns.Add(ExpColumn)
ExpColumn = New BoundColumn
ExpColumn.DataField = "Book_Dt"
ExpColumn.HeaderText = "Booking Date"
ExpColumn.DataFormatString =
"{0:dd-MMM-yyyy}"
.Columns.Add(ExpColumn)
ExpColumn = New BoundColumn
ExpColumn.DataField = "FID_Aprv_Dt"
ExpColumn.HeaderText = "FID Approved Date"
ExpColumn.DataFormatString =
"{0:dd-MMM-yyyy}"
.Columns.Add(ExpColumn)
ExpColumn = New BoundColumn
ExpColumn.DataField = "FID_Aprv_Amt"
ExpColumn.HeaderText = "FID Approved
Amount"
ExpColumn.DataFormatString = "{0:#,0.00}"
.Columns.Add(ExpColumn)
ExpColumn = New BoundColumn
ExpColumn.DataField = "Tolerance"
ExpColumn.HeaderText = "Tolerance"
.Columns.Add(ExpColumn)
ExpColumn = New BoundColumn
ExpColumn.DataField = "Ccy_Cd"
ExpColumn.HeaderText = "Currency"
.Columns.Add(ExpColumn)
ExpColumn = New BoundColumn
ExpColumn.DataField = "OS_Amt"
ExpColumn.HeaderText = "Outstanding
Amount"
ExpColumn.DataFormatString = "{0:#,0.00}"
.Columns.Add(ExpColumn)
ExpColumn = New BoundColumn
ExpColumn.DataField = "OS_Amt_USD"
ExpColumn.HeaderText = "Outstanding
Amount(USD)"
ExpColumn.DataFormatString = "{0:#,0.00}"
.Columns.Add(ExpColumn)
ExpColumn = New BoundColumn
ExpColumn.DataField = "Cash_Lien_Amt"
ExpColumn.HeaderText = "Cash Lient Amount"
ExpColumn.DataFormatString = "{0:#,0.00}"
.Columns.Add(ExpColumn)
ExpColumn = New BoundColumn
ExpColumn.DataField = "Cash_Lien_USD"
ExpColumn.HeaderText = "Cash Lient
Amount(USD)"
ExpColumn.DataFormatString = "{0:#,0.00}"
.Columns.Add(ExpColumn)
ExpColumn = New BoundColumn
ExpColumn.DataField = "Mat_Dt"
ExpColumn.HeaderText = "Maturity Date"
ExpColumn.DataFormatString =
"{0:dd-MMM-yyyy}"
.Columns.Add(ExpColumn)
ExpColumn = New BoundColumn
ExpColumn.DataField = "LC_Exp_Dt"
ExpColumn.HeaderText = "LC Expiry Date"
ExpColumn.DataFormatString =
"{0:dd-MMM-yyyy}"
.Columns.Add(ExpColumn)
ExpColumn = New BoundColumn
ExpColumn.DataField = "Tenor"
ExpColumn.HeaderText = "Tenor"
.Columns.Add(ExpColumn)
ExpColumn = New BoundColumn
ExpColumn.DataField = "Rmks"
ExpColumn.HeaderText = "Remarks"
.Columns.Add(ExpColumn)
ExpColumn = New BoundColumn
ExpColumn.DataField = "Ovr_Rides"
ExpColumn.HeaderText = "Overrides"
.Columns.Add(ExpColumn)
ExpColumn = New BoundColumn
ExpColumn.DataField = "Trn_Status"
ExpColumn.HeaderText = "Transaction
Status"
.Columns.Add(ExpColumn)
ExpColumn = New BoundColumn
ExpColumn.DataField = "Trn_MMYY"
ExpColumn.HeaderText = "Transaction MMYY"
.Columns.Add(ExpColumn)
ExpColumn = New BoundColumn
ExpColumn.DataField = "Rec_Status"
ExpColumn.HeaderText = "Record Status"
.Columns.Add(ExpColumn)
ExpColumn = New BoundColumn
ExpColumn.DataField = "Last_UpdBy"
ExpColumn.HeaderText = "Last Updated By"
.Columns.Add(ExpColumn)
ExpColumn = New BoundColumn
ExpColumn.DataField = "Last_UpdOn"
ExpColumn.HeaderText = "Last Updated On"
ExpColumn.DataFormatString =
"{0:dd-MMM-yyyy}"
.Columns.Add(ExpColumn)
ExpColumn = New BoundColumn
ExpColumn.DataField = "Auth_By"
ExpColumn.HeaderText = "Authorized By"
.Columns.Add(ExpColumn)
ExpColumn = New BoundColumn
ExpColumn.DataField = "Auth_Dt"
ExpColumn.HeaderText = "Auth. On"
ExpColumn.DataFormatString =
"{0:dd-MMM-yyyy}"
.Columns.Add(ExpColumn)
End With
dg.DataBind()
dg.Columns(8).ItemStyle.HorizontalAlign =
HorizontalAlign.Right
dg.Columns(9).ItemStyle.HorizontalAlign =
HorizontalAlign.Right
dg.Columns(11).ItemStyle.HorizontalAlign =
HorizontalAlign.Right
dg.Columns(12).ItemStyle.HorizontalAlign =
HorizontalAlign.Right
dg.Columns(13).ItemStyle.HorizontalAlign =
HorizontalAlign.Right
dg.Columns(14).ItemStyle.HorizontalAlign =
HorizontalAlign.Right
dg.Columns(17).ItemStyle.HorizontalAlign =
HorizontalAlign.Right
dg.Columns(18).ItemStyle.Wrap = True
dg.Columns(19).ItemStyle.Wrap = True
'tell the datagrid to render itself to our
htmltextwriter
dg.RenderControl(htmlWrite)
htmlWrite.WriteEndTag("Body")
htmlWrite.WriteEndTag("HTML")
'all that's left is to output the html
Response.Write(stringWrite.ToString)
Response.End()
End Sub
Public Sub GetWriter(ByRef writer As
System.Web.UI.HtmlTextWriter)
Dim sr As System.IO.StreamReader
Dim input As String
Try
writer.WriteFullBeginTag("HTML")
writer.WriteFullBeginTag("Head")
writer.RenderBeginTag(HtmlTextWriterTag.Style)
writer.Write("<!--")
sr =
System.IO.File.OpenText(Me.MapPath(MY_CSS_FILE))
input = sr.ReadToEnd()
writer.WriteLine(input)
sr.Close()
writer.Write("-->")
writer.RenderEndTag()
writer.WriteEndTag("Head")
writer.WriteFullBeginTag("Body")
Catch ext As Threading.ThreadAbortException
Catch ex As Exception
TransferToErrorPage("Print", ex,
"ExportMatches.aspx")
End Try
End Sub
Regards
Sooraj
Microsoft India Community Star
__________________________________
Do you Yahoo!?
Yahoo! Small Business - Try our new resources site!
http://smallbusiness.yahoo.com/resources/
-----------------------------------------------------------
To stop getting this e-mail, or change how often it arrives, go to your E-mail
Settings.
http://groups.msn.com/BDOTNET/_emailsettings.msnw
Need help? If you've forgotten your password, please go to Passport Member
Services.
http://groups.msn.com/_passportredir.msnw?ppmprop=help
For other questions or feedback, go to our Contact Us page.
http://groups.msn.com/contact
If you do not want to receive future e-mail from this MSN group, or if you
received this message by mistake, please click the "Remove" link below. On the
pre-addressed e-mail message that opens, simply click "Send". Your e-mail
address will be deleted from this group's mailing list.
mailto:[EMAIL PROTECTED]
