web/InvoiceReport.aspx.vb

（完整代码） 1KB 

Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Imports System.IO
Imports System.Threading
Imports System.Data

Partial Class InvoiceReport
    Inherits System.Web.UI.Page
    Dim StrLinkupReport As String = Server.MapPath("InvoiceReport.rpt")
    Dim ReportDoc As New ReportDocument()
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim DS As New InvoiceDataSet
        Dim Conn As New RecordProcess
        ReportDoc.Load(StrLinkupReport)
        Dim strsql As String = "select  * from [PosView] where salesid='" & Request.QueryString("report").ToString.Trim & "'"
        Conn.SearchToDA(strsql).Fill(DS.POSView)
        ReportDoc.SetDataSource(DS)
        'ReportDoc.Refresh()
        itemreport.ReportSource = ReportDoc

    End Sub
   

    Protected Sub itemreport_Unload(ByVal sender As Object, ByVal e As System.EventArgs) Handles itemreport.Unload
        ReportDoc.Close()
        ReportDoc.Dispose()
    End Sub
End Class

24 小时内免费解锁 3 个项目，之后 1 积分/个。 规则说明

AI 解读

登录后可用，每次 10 积分，解读结果公开显示在下面。

还没有人解读过这个文件。