Dim rpt As New report_4 rpt.RecordSelectionFormula = "{ชื่อตาราง.ชื่อ Column} in ( cDate( '" & date_1.Value.ToString("dd/MM/yyyy") & "') to cDate ('" & date_2.Value.ToString("dd/MM/yyyy") & "'))" cr.ReportSource = rpt cr.Refresh()
เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง