01. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
02. Dim f As frmReportBorrowTotal
03. Dim r As New frmReportBorrowTotal
04. Dim s, d1, d2 As String
05. d1 = Format(DateTimePicker1.Value, "MM/dd/") + (DateTimePicker2.Value.Year).ToString + " 00:00:00"
06. d2 = Format(DateTimePicker2.Value, "MM/dd/") + (DateTimePicker2.Value.Year).ToString + " 23:59:59"
07. f = New frmReportBorrowTotal
08. s = "{Borrow.borrow_date}>=#" + d1 + "# and {Borrow.borrow_date}<=#" + d2 + "#"
09. f.DataDefinition.FormulaFields("Total").Text = "'รายงานวันที่ " + Format(DateTimePicker1.Value, "dd/MM/yyyy") + " - " + Format(DateTimePicker1.Value, "dd/MM/yyyy") + "'"
10. f.CrystalReportViewer1.ReportSource = r
11. f.CrystalReportViewer1.SelectionFormula = s
12. f.CrystalReportViewer1.RefreshReport()
13. f.Visible = True
14. End Sub
15.End Class
Quote:
