queryhousesaleprint.aspx.vb

来自「与房地产相关的各项活动」· VB 代码 · 共 30 行

'文件名：QueryHouseSalePrint.aspx.vb
Imports System.Data.SqlClient
Imports System.Data
Partial Class HouseManage_QueryHouseSalePrint
    Inherits System.Web.UI.Page
    Private MyPrintForm As HouseManage_QueryHouseSaleForm
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        '将查询结果输出到Excel文件中
        MyPrintForm = Context.Handler
        Dim MySQL As String = MyPrintForm.MyPrintSQL
        Me.Label1.Text = Session("MyCompanyName").ToString() + "可售房源查询结果表"
        Me.Label2.Text = MyPrintForm.MyPrintDate
        Dim MyConnectionString As String = ConfigurationManager.ConnectionStrings("MyHouseDBConnectionString").ConnectionString
        Dim MyAdapter As New SqlDataAdapter(MySQL, MyConnectionString)
        Dim MySet As New DataSet()
        MyAdapter.Fill(MySet)
        Me.DataGrid1.DataSource = MySet
        Me.DataGrid1.DataBind()
        Me.Response.ContentType = "application/vnd.ms-excel"
        Me.Response.Charset = ""
        Me.EnableViewState = False
        Dim MyWriter As System.IO.StringWriter
        Dim MyWeb As System.Web.UI.HtmlTextWriter
        MyWriter = New System.IO.StringWriter()
        MyWeb = New System.Web.UI.HtmlTextWriter(MyWriter)
        Me.DataGrid1.RenderControl(MyWeb)
        Response.Write(MyWriter.ToString())
    End Sub
End Class