querydepositprint.aspx.vb

来自「旅客信息管理、酒店客房管理、各种信息查询」· VB 代码 · 共 31 行

'文件名:QueryDepositPrint.aspx.vb
Imports System.Data
Partial Class QueryManage_QueryDepositPrint
    Inherits System.Web.UI.Page
    Private MyQueryDepositForm As QueryManage_QueryDepositForm
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        '将查询结果输出到Excel文件中
        MyQueryDepositForm = Context.Handler
        Dim MyTable As DataTable = MyQueryDepositForm.MyPrintTable
        Dim My截止日期 As String = MyQueryDepositForm.MyPrint截止日期
        Me.Label1.Text = Session("MyCompanyName").ToString() + "在店旅客押金费用统计表"
        Me.Label2.Text = "截止日期：" + My截止日期
        Me.DataGrid1.DataSource = MyTable
        Me.DataGrid1.DataBind()
        Me.Response.ContentType = "application/vnd.ms-excel"
        Me.Response.Charset = ""
        '关闭 ViewState
        Me.EnableViewState = False
        Dim MyWriter As System.IO.StringWriter
        Dim MyWeb As System.Web.UI.HtmlTextWriter
        '将信息写入字符串
        MyWriter = New System.IO.StringWriter()
        '在Web窗体页上写出一系列连续的HTML特定字符和文本
        MyWeb = New System.Web.UI.HtmlTextWriter(MyWriter)
        '将DataGrid中的内容输出到HtmlTextWriter对象中
        Me.DataGrid1.RenderControl(MyWeb)
        '把HTML写回浏览器
        Response.Write(MyWriter.ToString())
    End Sub
End Class