Capture รูปแรกคือ พอกดดูreport แล้วกด next หรือกดเลือก วันที่ มันจะเด้งไปให้ใส่ password ตามรูปค่ะ
code คือ
Code (VB.NET)
If Not Page.IsPostBack Then
Sql = "Select * From TblCaseInterest where flag ='-' Order by CI_ID"
myda = New SqlDataAdapter(Sql, myconn)
myda.Fill(ds, "TblCaseInterest")
CurrentReport.Load(Server.MapPath("Casepanew.rpt"))
'///CurrentReport.DataSourceConnections.Item(0).SetLogon("username", "password")
CurrentReport.DataSourceConnections.Item(0).SetLogon("police", "police")
CurrentReport.SetDataSource(ds.Tables("TblCaseInterest"))
CurrentReport.Refresh()
'//////////////////////////////////
CrystalReportViewer1.ReportSource = Server.MapPath("Casepanew.rpt")
'CrystalReportViewer1.LogOnInfo(0).ConnectionInfo.UserID = "system"
'CrystalReportViewer1.LogOnInfo(0).ConnectionInfo.Password = "systempass"
'//////////////////////////////////
CrystalReportViewer1.ReportSource = CurrentReport
CrystalReportViewer1.DataBind()
'Service.AddLogFile("CustomerPrintAll", "-", "-")
End If
อีกอย่างคือใน report วันที่ออกมาเป็น คศ ตามใน ดาต้าเบส มีวิธีทำยังไงให้เป็น พศบ้างคะพี่
ตอนแรกใช้วิธีสร้าง Report custom function
Function (datetimeVar d)
if(Year (d) <2500) then
d := DateTime (Year (d)+543,Month (d) ,Day (d) )
else
d;
Local StringVar y;
y:= Totext(d,"dd MM yyyy");
สร้างแล้ว ตั้งชื่อว่า datee
แล้วไปเรียกใช้ใน formula เป็น datee ({TblDailyEvent.D_Date})
พอเวลารัน มันก็ขึ้นเป็น พศ ถูกต้องดี แต่พอกด next ดูหน้าถัดไปมันเออเร๋อ ตามรูป Capture2
Load balance : Server 03
