Imports SystemImports System.CollectionsImports System.ComponentModelImports System.DataImports System.DrawingImports System.WebImports System.Web.SessionStateImports System.Web.UIImports System.Web.UI.WebControlsImports System.Web.UI.HtmlControlsImports System.IOImports System.Data.SqlClientImports System .Text
Public class Webform1 inherits system.web.ui.page
#Region "The code" of the web form designer "
'This call is required for the web form designer.
End Sub Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid Protected WithEvents Btn_Import_Excel As System.Web.UI.WebControls.Button Protected WithEvents BtnImportWord As System.Web.UI.WebControls.Button
'Note: The following placeholders declare are required by the web form designer. 'Don't delete or move it. Private DesignerPlaceHolderDeclaration as System.Object
Private Sub Page_init (Byval E AS System.EventArgs) Handles mybase.init 'Codegen: This method call is required by the Web Form Designer' Do not modify it using the code editor. InitializationComponent () End Sub
#End region
Private Sub Page_Load (Byval E AS System.EventArgs) Handles MyBase.Load 'Plate the initialization page here CreateDataSet () End Sub
Private Sub ExportDataGrid (ByVal FileType As String, ByVal FileName As String) 'derived from DataGrid Response.Charset = "GB2312" Response.ContentEncoding = System.Text.Encoding.GetEncoding ( "GB2312") Response.AppendHeader ( "Content-Disposition" , "attachment; filename =" & HttpUtility.UrlEncode (fileName, System.Text.Encoding.UTF8)) Response.ContentType = FileType Me.EnableViewState = False Dim tw As System.IO.StringWriter tw = New System.IO.StringWriter Dim hw As System.Web.UI.HtmlTextWriter hw = New HtmlTextWriter (tw) DataGrid1.RenderControl (hw) Response.Write (tw.ToString ()) Response.End () End SubPrivate Sub CreateDataSet () 'Create DataSet Dim myDataSet As DataSet MyDataSet = New Dataset ("ANEWDATASET") DIM TABLE1 AS DATATABLE TABLE1 = MakeTable ("ID", "Name") MyDataSet.tables.add (Table1) DataGrid1.datasource = MyDataSet DataGrid1.data Bind () End Sub
Private Function MakeTable (ByVal c1Name As String, ByVal c2Name As String) As DataTable 'Create table Dim i As Integer Dim myTable As New DataTable Dim myColumn As DataColumn' Add two DataColumns myColumn = New DataColumn (c1Name, System.Type.GetType ( " System.int32 ") 'Create a field and set type myTable.Columns.add (mycolumn) mycolumn = new datacolumn (c2name, system.type.gettype (" system.string ")) MyTable.columns.add (MyColumn) DIM DR AS DATAROW for i = 1 to 10 Dr = MyTable.NewRow () DR (0) = I Dr (1) = "Name" i.toString () MyTable.Rows.Add (DR) Next I MakeTable = MyTable End FunctionPrivate SUB BTNIMPORTWORD_CLICK (BYVAL E AS System.EventArgs) Handles Btnimportword.click Call ExportDataGrid ("Application / MS-WORD", "Indit Of") "Guide to Word End Sub
Private Sub Btn_Import_Excel_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Import_Excel.Click Call ExportDataGrid ( "application / ms-excel", "List index .xls") 'leads to Excel End SubEnd Class
