SqlParameter = "{PROC_EMPLOYEES;1.DYDATE} >= #" & ConvertDMY(Me.DTStartDate.Value, "y-m-d") & " 00:00:00# " SqlParameter &= "AND {PROC_EMPLOYEES;1.DYDATE} <= #" & ConvertDMY(Me.DTEndDate.Value, "y-m-d") & " 23:59:59# " Report.Load(Application.StartupPath & "/Report/rptEmpRecord.rpt") Dim rptTLog As New CrystalDecisions.Shared.TableLogOnInfo rptTLog.ConnectionInfo.ServerName = SVName rptTLog.ConnectionInfo.DatabaseName = DBName rptTLog.ConnectionInfo.UserID = UID rptTLog.ConnectionInfo.Password = PWD For i As Short = 0 To Report.Database.Tables.Count() - 1 Report.Database.Tables(i).ApplyLogOnInfo(rptTLog) Next Report.RecordSelectionFormula = SqlParameter Report.Refresh() Report.SetParameterValue("@EMPNO", Me.txtEmpNo.Text.Trim()) Report.SetParameterValue("EmployeeNo", Me.txtEmpNo.Text.Trim()) Report.SetParameterValue("EmployeeName", EmployeeName) Report.SetParameterValue("Department", Department)
เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง