 |
|
โทษทีครับ มาช้าไปหน่อย...
ผมหา กระทู้นี้ไม่เจอ เลยไม่ได้มาตอบให้ครับ
ตามนี้เลยครับ... Copy มาทั้งดุ้นเรยยยย
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Imports CrystalDecisions.CrystalReports.ViewerObjectModel
Imports CrystalDecisions.ReportSource
Imports System.Data
Imports System.Data.SqlClient
Imports System.Web
Imports CrystalDecisions
Partial Class PSMT_StockGetReport
Inherits System.Web.UI.Page
Dim rpt As New ReportDocument
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim maingroup_, subgroup1_, subgroup2_, subgroup3_, subgroup4_, warehouse_, location_, rpt_name As String
Dim maingroup_2, subgroup1_2, subgroup2_2, subgroup3_2, subgroup4_2, warehouse_2, location_2 As String
-- เริ่มรับค่าที่ส่งมาจาก php
warehouse_ = Request.QueryString("WAREHOUSE")
location_ = Request.QueryString("location")
maingroup_ = Request.QueryString("maingroup")
subgroup1_ = Request.QueryString("subgroup1")
subgroup2_ = Request.QueryString("subgroup2")
subgroup3_ = Request.QueryString("subgroup3")
subgroup4_ = Request.QueryString("subgroup4")
'subgroup5_ = Request.QueryString("subgroup5")
rpt_name = Request.QueryString("report_name")
-- จบรับค่าที่ส่งมาจาก php
If maingroup_ = "*" Then
maingroup_2 = "like"
Else
maingroup_2 = "="
End If
If subgroup1_ = "*" Then
subgroup1_2 = "like"
Else
subgroup1_2 = "="
End If
If subgroup2_ = "*" Then
subgroup2_2 = "like"
Else
subgroup2_2 = "="
End If
If subgroup3_ = "*" Then
subgroup3_2 = "like"
Else
subgroup3_2 = "="
End If
If subgroup4_ = "*" Then
subgroup4_2 = "like"
Else
subgroup4_2 = "="
End If
If warehouse_ = "*" Then
warehouse_2 = "like"
Else
warehouse_2 = "="
End If
If location_ = "*" Then
location_2 = "like"
Else
location_2 = "="
End If
-- เลือกรายงาน
rpt.Load(Server.MapPath("reports\Stock\" & rpt_name))
-- Username และ Password ฐานข้อมูล
rpt.SetDatabaseLogon("Username", "Password")
-- ค่าที่จะส่งให้ Crystal Report
CrystalReportViewer1.SelectionFormula = "{CSWAREHOUSE.CODE} " & warehouse_2 & "'" & warehouse_ & "' and {CSV_STKWAREHOUSE_QTY.Location} " & location_2 & "'" & location_ & "' and {CSPDMAINGROUP.CODE} " & maingroup_2 & "'" & maingroup_ & "' and {CSPDSUBGROUP1.CODE} " & subgroup1_2 & "'" & subgroup1_ & "' and {CSPDSUBGROUP2.CODE} " & subgroup2_2 & "'" & subgroup2_ & "' and {CSPDSUBGROUP3.CODE} " & subgroup3_2 & "'" & subgroup3_ & "' and {CSPDSUBGROUP4.CODE} " & subgroup4_2 & "'" & subgroup4_ & "'" 'and {CSSERIALIN.SERIALSTATE}=0"
CrystalReportViewer1.ReportSource = rpt
CrystalReportViewer1.DisplayGroupTree = False
rpt.Refresh()
End Sub
Protected Sub Page_Unload(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Unload
rpt.Close()
End Sub
End Class
-- ตามนี้เรยครับ
เดี๋ยวผมค่อยเข้ามาดูใหม่นะครับ ทำงานก่อน
|
 |
 |
 |
 |
| Date :
2009-09-12 13:04:50 |
By :
saratu |
|
 |
 |
 |
 |
|
|
 |
