การส่งค่าจาก VB.NET ไปให้ Crystal Report โดยระบุเงื่อนไข โดยช่วงเวลา

การส่งค่าจาก VB.NET ไปให้ Crystal Report โดยระบุเงื่อนไข โดยช่วงเวลา                        

code ที่ใช้มีีแค่นี้ครับ สั้นๆ แต่ใช้ได้ดีเหมือนกัน
 

Public Class Form1
  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

      Dim tm As New Globalization.CultureInfo("en-US")
     Dim rpt1 As New RptTest
          rpt1.RecordSelectionFormula = "{Orders.Order Date} in (#" & dtp1.Value.ToString(tm)
         rpt1.RecordSelectionFormula &= "# to #" & dtp2.Value.ToString(tm) & "#)"

      CrystalReportViewer1.ReportSource = rpt1
     CrystalReportViewer1.Refresh()
  End Sub
End Class