Dim rpt As New ReportDocument() Dim directory As String = My.Application.Info.DirectoryPath 'rpt.Load(directory & "\myCrystalReport1.rpt") rpt.Load("D:\Programming\!VB\MyApplication2\MyApplication\" & frmSNotis.cboCNotis.SelectedItem & ".rpt") rpt.SetDatabaseLogon("sa", "1234", "WISIT\SQLEXPRESS", "mydatabase") rpt.SetParameterValue("aID", frmSNotis.txtID.Text) rpt.SetParameterValue("nName", frmSNotis.cboCNotis.SelectedItem) ' MessageBox.Show(frmSNotis.txtID.Text) Me.CrystalReportViewer1.ReportSource = rpt Me.CrystalReportViewer1.Refresh()
เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง