Register Register Member Login Member Login Member Login Forgot Password ??
PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone
 

Registered : 109,036

HOME > .NET Framework > Forum > ช่วยชี้แนะด้วยค่ะ เกี่ยวกับ enter parameter values



 

ช่วยชี้แนะด้วยค่ะ เกี่ยวกับ enter parameter values

 



Topic : 044611



โพสกระทู้ ( 2 )
บทความ ( 0 )



สถานะออฟไลน์




มีปัญหาเกี่ยวกับการส่งค่าจากฟอร์ม ไปยัง crystal report เช่น ค่าวันที่ อ่ะค่ะ มันจะ
ขึ้นหน้าต่าง
enter parameter values แต่พอกด cancel มันก็จะหายไป รีพอร์ทก็ถูกต้องตามปกติ ทำไงจะไม่
ให้มัน
ขึ้นมา เพราะบางทีมันก็ขึ้น บางทีมันก็ไม่ขึ้นอ่ะค่ะ เพื่อนเคยแนะนำให้สร้าง crystal ใหม่
ก็ลองสร้างหลายรอบแล้ว มันก็เป็นเหมือนเดิม รบกวนผู้รู้ช่วยแนะนำด้วยค่ะ
ขอบคุณค่ะ



Tag : - - - -







Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2010-06-28 12:08:56 By : nongnooch40 View : 4691 Reply : 10
 

 

No. 1



โพสกระทู้ ( 1,603 )
บทความ ( 1 )



สถานะออฟไลน์


enter parameter values
ข้างๆ จะมีบอกว่า มี parameter ชื่ออะไรที่ยังไม่ได้กำหนดค่ะ
ก็ไปกำหนดให้เสียก่อน จะไม่มี error นี้ขึ้นค่ะ






Date : 2010-06-28 12:53:16 By : blurEyes
 


 

No. 2



โพสกระทู้ ( 2 )
บทความ ( 0 )



สถานะออฟไลน์


กำหนดใน crystal ใช่ป่ะคะ ถ้าใช่ ทำแล้วค่ะกำหนดแล้วแต่มันก็ยังขึ้นอยู่
Date : 2010-06-29 09:23:31 By : nongnooch40
 

 

No. 3



โพสกระทู้ ( 1,603 )
บทความ ( 1 )



สถานะออฟไลน์


cap screen มาค่ะ
ตรงที่มันขึ้นถามหา enter parameter

ไม่ได้กำหนดที่ crystal report ค่ะต้องกำหนดจาก .NET ที่เรียก CR
Date : 2010-06-29 10:58:52 By : blurEyes
 


 

No. 4



โพสกระทู้ ( 7 )
บทความ ( 0 )



สถานะออฟไลน์


Code (VB.NET)
Sub print_report(ByVal qt_no As string)
        Dim doc As String = "test"
        Dim sql As String = "select entry_date from qt_policy where qt_no ='" & st_no & "'"
        Dim var(1) As String, l(1) As String
        var(0) = "@qt_no" : l(0) = "QNº: " & st_no
       Exportport(sql, doc, var, l, CrystalReportViewer1)

    End Sub




Public Sub Exportport(ByVal sql As String, ByVal DOC_name As String, ByVal PV() As String, ByVal P_VAL() As String, ByVal crs As CrystalDecisions.Web.CrystalReportViewer)

        Dim sqlConn As New SqlConnection(".............")
        Dim b As New SqlDataAdapter(sql, sqlConn)
        Dim dst As New DataSet
        b.Fill(dst, "table")
        Dim rpt As New ReportDocument()
        rpt.Load(Server.MapPath("~/Reports/" & DOC_name & ".rpt"))
        rpt.SetDataSource(dst.Tables(0))

        If PV IsNot Nothing Or P_VAL IsNot Nothing Then
            Dim PAR(UBound(PV)) As ParameterDiscreteValue
            Dim PAR_F As ParameterFieldDefinitions
            Dim VAL(UBound(PV)) As ParameterValues
            Dim cr(UBound(PV)) As ParameterFieldDefinition
            PAR_F = rpt.DataDefinition.ParameterFields

            For i As Integer = 0 To UBound(PV)
                cr(i) = PAR_F.Item(PV(i))
                VAL(i) = cr(i).CurrentValues
                PAR(i) = New ParameterDiscreteValue
                PAR(i).Value = P_VAL(i)
                VAL(i).Add(PAR(i))
                cr(i).ApplyCurrentValues(VAL(i))
                rpt.SetParameterValue(PV(i), P_VAL(i))
            Next
        End If
      
        Try
            With crs
                .DisplayToolbar = True
                .HasExportButton = False
                .HasRefreshButton = False
                .HasToggleParameterPanelButton = False
                .PrintMode = CrystalDecisions.Web.PrintMode.ActiveX
                .ToolPanelView = CrystalDecisions.Web.ToolPanelViewType.None
                .ReportSource = rpt
                .DataBind()
            End With

        Catch ex As Exception
            Console.WriteLine(ex.Message)
            ex = Nothing
        Finally
            sqlConn.Close()
            dst.Dispose()
            sqlConn = Nothing
            dst = Nothing
        End Try
    End Sub

Date : 2010-06-30 09:46:23 By : Oriya
 


 

No. 5



โพสกระทู้ ( 1,603 )
บทความ ( 1 )



สถานะออฟไลน์


cute-header-03

Code (VB.NET)
    Public Sub Exportport(ByVal sql As String, ByVal DOC_name As String _
        , ByVal PV() As String, ByVal P_VAL() As String _
        , ByVal crs As CrystalDecisions.Web.CrystalReportViewer)

        Dim sqlConn As New SqlConnection(".............")
        Dim b As New SqlDataAdapter(sql, sqlConn)
        Dim dst As New DataSet
        b.Fill(dst, "table")
        Dim rpt As New ReportDocument()
        rpt.Load(Server.MapPath("~/Reports/" & DOC_name & ".rpt"))
        rpt.SetDataSource(dst.Tables(0))

        If PV IsNot Nothing Or P_VAL IsNot Nothing Then
            Dim PAR(UBound(PV)) As ParameterDiscreteValue
            Dim PAR_F As ParameterFieldDefinitions
            Dim VAL(UBound(PV)) As ParameterValues
            Dim cr(UBound(PV)) As ParameterFieldDefinition
            PAR_F = rpt.DataDefinition.ParameterFields

            For i As Integer = 0 To UBound(PV)
                cr(i) = PAR_F.Item(PV(i))
                VAL(i) = cr(i).CurrentValues
                PAR(i) = New ParameterDiscreteValue
                PAR(i).Value = P_VAL(i)
                VAL(i).Add(PAR(i))
                cr(i).ApplyCurrentValues(VAL(i))
                rpt.SetParameterValue(PV(i), P_VAL(i))
            Next
        End If

        Try
            With crs
                .DisplayToolbar = True
                .HasExportButton = False
                .HasRefreshButton = False
                .HasToggleParameterPanelButton = False
                .PrintMode = CrystalDecisions.Web.PrintMode.ActiveX
                .ToolPanelView = CrystalDecisions.Web.ToolPanelViewType.None
                .ReportSource = rpt
                .DataBind()
            End With

        Catch ex As Exception
            Console.WriteLine(ex.Message)
            ex = Nothing
        Finally
            sqlConn.Close()
            dst.Dispose()
            sqlConn = Nothing
            dst = Nothing
        End Try
    End Sub



เป็นอะไรที่ทรมานสายตามากเลย
Date : 2010-06-30 09:50:43 By : blurEyes
 


 

No. 6



โพสกระทู้ ( 1,603 )
บทความ ( 1 )



สถานะออฟไลน์


คือ อาการที่คุณว่ามาจะเกิดขึ้นเมื่อคุณสร้าง parameter ใน crystal report
แต่ตอนส่ง parameter เพื่อ generate report คุณให้ค่าไม่ครบค่ะ
มีกรณีเดียว ลองตรวจใน .RPT ดูค่ะว่ามี PARAMETER ชื่ออะไรบ้าง
แล้วที่คุณ ASSIGN ด้วย code ด้านบนมีอะบ้าง หาตัวที่ยังไม่ได้ assign
อาจเป็นไปได้ว่าใช้ชื่อผิดก็ได้ค่ะ
Date : 2010-06-30 10:01:42 By : blurEyes
 


 

No. 7



โพสกระทู้ ( 66 )
บทความ ( 0 )



สถานะออฟไลน์


ขอเป็นแบบ C# ด้วยครับ ยังทำการส่งค่าจากฟอร์ม ไปยัง crystal report ไม่ได้เลย
Date : 2010-07-05 14:23:45 By : thaic
 


 

No. 8



โพสกระทู้ ( 3,144 )
บทความ ( 1 )

สมาชิกที่ใส่เสื้อไทยครีเอท

สถานะออฟไลน์


เกลียดเกาหลีอะ

แต่เรียวขาของ snsd สวยมาก


Date : 2010-07-05 15:40:53 By : tungman
 


 

No. 9

Guest


พอดีเจอปัญหาคล้ายๆกันค่ะ เลยขออนุญาตถามค่ะ ว่า code ด้านล่าง ผิดตรงไหนคะ พอเรียก crystal report แล้ว มันขึ้น popup enter parameter value ทั้งที่ใน parammeter ใน crystal report ก็ชื่อตรงกัน รบกวนด้วยคะ อดหลับอดนอน มึนมาหลายวันแล้ววว

Imports CrystalDecisions.Shared
Imports CrystalDecisions.CrystalReports.Engine
Public Class frmPreview
Dim Report As New CrystalReport1
Private Sub CrystalReportViewer1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CrystalReportViewer1.Load


With Report
Dim cryRpt As New ReportDocument

cryRpt.Load("E:\ABCProj\ABCProj\ABCProj\Preview.rpt")
Dim crParameterFieldDefinitions As ParameterFieldDefinitions
Dim crParameterFieldDefinition As ParameterFieldDefinition
Dim crParameterValues As New ParameterValues
Dim crParameterDiscreteValue As New ParameterDiscreteValue

crParameterDiscreteValue.Value = str1 ' -->ตรงนี้ ประกาศ ตัวแปร เป็น public ไว้ใน module ค่ะ, โดยรับค่ามาจากอีก form นึง
crParameterFieldDefinitions = cryRpt.DataDefinition.ParameterFields
crParameterFieldDefinition = crParameterFieldDefinitions.Item("SerialParam")
crParameterValues = crParameterFieldDefinition.CurrentValues

crParameterValues.Clear()
crParameterValues.Add(crParameterDiscreteValue)
crParameterFieldDefinition.ApplyCurrentValues(crParameterValues)
Dim CrystalReportViewer1 As New CrystalDecisions.Windows.Forms.CrystalReportViewer

CrystalReportViewer1.ReportSource = cryRpt
CrystalReportViewer1.Refresh()

End With
End Sub
End Class

Date : 2011-08-23 11:02:00 By : เนย
 


 

No. 10

Guest


Imports System.Data
Imports System.Data.SqlClient
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared

Dim strFormula As [String], ReptName As [String]
Dim cryRpt As New ReportDocument()
Dim crtableLogoninfos As New TableLogOnInfos()
Dim crtableLogoninfo As New TableLogOnInfo()
Dim crConnectionInfo As New ConnectionInfo()
Dim pfields As New ParameterFields()
Dim CrTables As Tables

Dim dt As DataTable
Dim prForWho, prCusAddr, prEmpName, strConnString, strSQL, cmdQuotRept As String

Private Sub FrmQuotation_ViewReport_Load(sender As Object, e As EventArgs) Handles MyBase.Load
If UserSelectValue <> Nothing Then

If ds.Tables.Contains("BasicInfoReport") Then ds.Tables.Remove("BasicInfoReport")
Dim daBasicInfoReport As New SqlDataAdapter("Select QuotID,IncVat,CusID From Quotation Where QuotID = '" & UserSelectValue & "'", cn)
daBasicInfoReport.Fill(ds, "BasicInfoReport")

ShowReport()

End If
End Sub
Private Sub FillParamReport()

prForWho = "สำหรับลูกค้า"

'------------- Customer Address
If ds.Tables.Contains("CustInfo") Then ds.Tables.Remove("CustInfo")
Dim daCustInfo As New SqlDataAdapter("Select * From Customer where CusID='" & ds.Tables("BasicInfoReport").Rows(0).Item("CusID") & "'", cn)
daCustInfo.Fill(ds, "CustInfo")

If ds.Tables("CustInfo").Rows.Count > 0 Then
prCusAddr = Nothing
If IsDBNull(ds.Tables("CustInfo").Rows(0).Item("CusAdd_No")) = False Then
prCusAddr &= ds.Tables("CustInfo").Rows(0).Item("CusAdd_No")
End If
If IsDBNull(ds.Tables("CustInfo").Rows(0).Item("CusAdd_Village")) = False Then
prCusAddr &= " หมู่บ้าน" & ds.Tables("CustInfo").Rows(0).Item("CusAdd_Village")
End If
If IsDBNull(ds.Tables("CustInfo").Rows(0).Item("CusAdd_Lane")) = False Then
prCusAddr &= " ซอย" & ds.Tables("CustInfo").Rows(0).Item("CusAdd_Lane")
End If
If IsDBNull(ds.Tables("CustInfo").Rows(0).Item("CusAdd_Moo")) = False Then
prCusAddr &= " หมู่" & ds.Tables("CustInfo").Rows(0).Item("CusAdd_Moo")
End If
If IsDBNull(ds.Tables("CustInfo").Rows(0).Item("CusAdd_Street")) = False Then
prCusAddr &= " ถนน" & ds.Tables("CustInfo").Rows(0).Item("CusAdd_Street")
End If
If IsDBNull(ds.Tables("CustInfo").Rows(0).Item("CusAdd_Tumbon")) = False Then
prCusAddr &= " แขวง" & ds.Tables("CustInfo").Rows(0).Item("CusAdd_Tumbon")
End If
If IsDBNull(ds.Tables("CustInfo").Rows(0).Item("CusAdd_Amphur")) = False Then
prCusAddr &= " เขต" & ds.Tables("CustInfo").Rows(0).Item("CusAdd_Amphur")
End If
If IsDBNull(ds.Tables("CustInfo").Rows(0).Item("CusAdd_Province")) = False Then
If ds.Tables.Contains("CusProvince") Then ds.Tables.Remove("CusProvince")
Dim daCusProvince As New SqlDataAdapter("Select * From Provinces where ProvinceID =" & ds.Tables("CustInfo").Rows(0).Item("CusAdd_Province") & "", cn)
daCusProvince.Fill(ds, "CusProvince")
If ds.Tables("CusProvince").Rows.Count > 0 Then
prCusAddr &= Chr(13) & "จังหวัด" & ds.Tables("CusProvince").Rows(0).Item("ProvinceName")
End If
End If
If IsDBNull(ds.Tables("CustInfo").Rows(0).Item("CusAdd_PostCode")) = False Then
prCusAddr &= " " & ds.Tables("CustInfo").Rows(0).Item("CusAdd_Postcode")
End If
Else
prCusAddr = "-"
End If

If ds.Tables.Contains("InfoEmp") = True Then
If ds.Tables("InfoEmp").Rows.Count > 0 Then
prEmpName = ds.Tables("InfoEmp").Rows(0).Item("EmpName")
End If
End If


End Sub
Private Sub ShowReport()

cmdQuotRept = Nothing
cmdQuotRept = "SELECT dbo.Quotation.QuotID, dbo.Quotation.CusID, dbo.Customer.CusFname, dbo.Customer.CusLname, "
cmdQuotRept &= " " & "dbo.Customer.CusAdd_No, dbo.Customer.CusAdd_Village, dbo.Customer.CusAdd_Lane, dbo.Customer.CusAdd_Moo, "
cmdQuotRept &= " " & "dbo.Customer.CusAdd_Street, dbo.Customer.CusAdd_Tumbon, dbo.Customer.CusAdd_Amphur, dbo.Provinces.ProvinceName, "
cmdQuotRept &= " " & "dbo.Customer.CusAdd_Postcode, dbo.Customer.Contact_No1, dbo.Customer.VatID, dbo.QuotationDetail.ProductID, "
cmdQuotRept &= " " & "dbo.QuotationDetail.ProductName, dbo.QuotationDetail.ProductPrice, dbo.QuotationDetail.ProductUnit, "
cmdQuotRept &= " " & "dbo.QuotationDetail.QTY, dbo.QuotationDetail.TotalPrice AS [QuotDet_TotalPrice], dbo.QuotationDetail.IsGroupPro, dbo.Quotation.CountList, "
cmdQuotRept &= " " & "dbo.Quotation.TotalPrice AS [Quot_TotalPrice], dbo.Quotation.Discount, dbo.Quotation.AmountPrice, "
cmdQuotRept &= " " & "dbo.Quotation.IncVat, dbo.Quotation.VatPrice, dbo.Quotation.NetPrice, dbo.Quotation.CharPrice, "
cmdQuotRept &= " " & "dbo.Quotation.WarDesc, convert(varchar,dbo.Quotation.RowCreatedDate,103) as RowCreatedDate, dbo.Quotation.StandDate, convert(varchar,dbo.Quotation.ExpiredDate,103) as ExpiredDate,dbo.AppsStatus.AppStatName as [PaidType]"
cmdQuotRept &= " " & "FROM dbo.Quotation "
cmdQuotRept &= " " & "LEFT JOIN dbo.AppsStatus "
cmdQuotRept &= " " & "ON dbo.Quotation.PaidType = dbo.AppsStatus.AppStatValue "
cmdQuotRept &= " " & "LEFT JOIN dbo.QuotationDetail "
cmdQuotRept &= " " & "ON dbo.Quotation.QuotID = dbo.QuotationDetail.QuotID "
cmdQuotRept &= " " & "LEFT JOIN dbo.Customer "
cmdQuotRept &= " " & "ON dbo.Quotation.CusID = dbo.Customer.CusID "
cmdQuotRept &= " " & "LEFT JOIN dbo.Provinces "
cmdQuotRept &= " " & "ON dbo.Customer.CusAdd_Province = dbo.Provinces.ProvinceID"
cmdQuotRept &= " " & "Where dbo.Quotation.QuotID = '" & UserSelectValue & "'"


If ds.Tables.Contains("MyDataTable_Quotation") Then ds.Tables.Remove("MyDataTable_Quotation")
Dim daMyDataTable_Quotation As New SqlDataAdapter(cmdQuotRept, cn)
daMyDataTable_Quotation.Fill(ds, "MyDataTable_Quotation")

dt = ds.Tables("MyDataTable_Quotation")

Try
cryRpt.Load(ReportServerPath & "\" & ReptName)

crConnectionInfo.ServerName = SVName
crConnectionInfo.DatabaseName = DBName
crConnectionInfo.UserID = USLogin
crConnectionInfo.Password = UPLogin

CrTables = cryRpt.Database.Tables

For Each CrTable As CrystalDecisions.CrystalReports.Engine.Table In CrTables
crtableLogoninfo = CrTable.LogOnInfo
crtableLogoninfo.ConnectionInfo = crConnectionInfo
CrTable.ApplyLogOnInfo(crtableLogoninfo)
Next

cryRpt.SetDataSource(dt)

FillParamReport()

cryRpt.SetParameterValue("ForWho", prForWho)
cryRpt.SetParameterValue("CusAddr", prCusAddr)
cryRpt.SetParameterValue("EmpName", prEmpName)

Me.crViewer.ReportSource = cryRpt
Me.crViewer.Refresh()



Catch ex As Exception
MessageBox.Show(ex.Message, "พบข้อผิดพลาดขณะดึงข้อมูล กรุณาติดต่อผู้ดูแลระบบ", MessageBoxButtons.OK, MessageBoxIcon.Error)
Me.Dispose()
End Try



End Sub
End Class
Date : 2014-03-28 05:59:01 By : นิรนาม
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : ช่วยชี้แนะด้วยค่ะ เกี่ยวกับ enter parameter values
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ FTP| ใส่แถวของตาราง ใส่คอลัมน์ตาราง| ตัวยก ตัวห้อย ตัวพิมพ์ดีด| ใส่โค้ด ใส่การอ้างถึงคำพูด| ใส่ลีสต์
smiley for :lol: smiley for :ken: smiley for :D smiley for :) smiley for ;) smiley for :eek: smiley for :geek: smiley for :roll: smiley for :erm: smiley for :cool: smiley for :blank: smiley for :idea: smiley for :ehh: smiley for :aargh: smiley for :evil:
Insert PHP Code
Insert ASP Code
Insert VB.NET Code Insert C#.NET Code Insert JavaScript Code Insert C#.NET Code
Insert Java Code
Insert Android Code
Insert Objective-C Code
Insert XML Code
Insert SQL Code
Insert Code
เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

   
  เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง
 
โดย
อีเมล์
บวกค่าให้ถูก
<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)







Exchange: นำเข้าสินค้าจากจีน, Taobao, เฟอร์นิเจอร์, ของพรีเมี่ยม, ร่ม, ปากกา, power bank, แฟลชไดร์ฟ, กระบอกน้ำ

Load balance : Server 05
ThaiCreate.Com Logo
© www.ThaiCreate.Com. 2003-2024 All Rights Reserved.
ไทยครีเอทบริการ จัดทำดูแลแก้ไข Web Application ทุกรูปแบบ (PHP, .Net Application, VB.Net, C#)
[Conditions Privacy Statement] ติดต่อโฆษณา 081-987-6107 อัตราราคา คลิกที่นี่