01.Private Sub Previewreport_Load(sender As Object, e As EventArgs) Handles MyBase.Load
02.
03.
04. sql = " SELECT DISTINCT doc_fortran.doc_no,doc_sum.drstaff,doc_fortran.ref_doc, doc_fortran.cstm_code, doc_fortran.cstm_name, doc_fortran.bill_no, doc_fortran.doc_bill, doc_fortran.sdate, doc_fortran.price, doc_fortran.discount, doc_fortran.total_price, doc_sum.total_p, doc_sum.total_discount, doc_sum.total_price AS Expr1 FROM doc_fortran INNER JOIN doc_sum ON doc_fortran.ref_doc = doc_sum.ref_doc AND doc_fortran.cstm_code = doc_sum.cstm_code where doc_fortran.ref_doc='" & Form1.t_doctran.Text & "' order by doc_fortran.doc_no ASC"
05.
06.
07.
08. Dim report As New Report1
09. Dim reportdata As New Telerik.Reporting.SqlDataSource
10. reportdata.ConnectionString = "server=192.168.1.240;Port=3306;User Id=xxxx;Password=xxxx;Database=mydb;Convert Zero Datetime=True"
11. reportdata.SelectCommand = sql
12. report.DataSource = reportdata
13. ReportViewer1.ReportSource = report
14. ReportViewer1.Refresh()
15.
16. Me.ReportViewer1.RefreshReport()
17. report.t_date.Value = Now.Date
18. End Sub
