Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load If Not IsPostBack() Then Try Dim ds As DataSet Dim parameters As Object() = New Object() {""} ds = ConnectionSQL.GetDataSet("Get_ThongTinThueBaoIn", parameters) ds.Tables(0).TableName = "ThueBao" Dim rp As New CrystalReport rp.SetDataSource(ds) CrystalReportViewer1.ReportSource = rp Catch ex As Exception ScriptManager.RegisterStartupScript(Me, Me.[GetType](), "Thông báo", "alert('Lỗi:" + ex.Message & "');", True) End Try End If End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)