สร้าง Parameter ไว้ที่ Crystal Report (VB2008) แล้วได้เขียนโค้ดเพื่อส่งค่า Parameter จาก VB ไปที่ Report
"ปรากฏว่า มันมีกล่องสีเทาๆ ให้ใส่ค่า Parameter ขึ้นอีก"
ไม่ทราบว่า จะมีวิธีไม่ให้มันแสดงหรือเปล่าคะ ขอบคุณค่ะ
โค้ด VB
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Imports System.Data.SqlClient
Imports System.Data
Public Class DProfitReport_View
Dim strConnection As String
Dim Conn As SqlConnection
Dim adapter As SqlDataAdapter
Dim strAdd As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
strConnection = "Data Source=\SQLEXPRESS; Initial Catalog=Project; Integrated Security=True"
Conn = New SqlConnection(strConnection)
Conn.Open()
Dim paramValue As New ParameterDiscreteValue
paramValue.Value = Me.DateTimePicker1.Text
Dim paramfld As New ParameterField
paramfld.ParameterFieldName = "sale_date"
paramfld.CurrentValues.Add(paramValue)
Dim paramfields As New ParameterFields
paramfields.Add(paramfld)
CrystalReportViewer1.ParameterFieldInfo = paramfields
CrystalReportViewer1.ReportSource = New DProfitReport()
End Sub
End Class
โค้ดVB 2008 ทำให้Pop Up เวลาส่งค่า Parameter ใน Crystal Report หายไปยังไงคะ ?
"ปรากฏว่า มันมีกล่องสีเทาๆ ให้ใส่ค่า Parameter ขึ้นอีก"
ไม่ทราบว่า จะมีวิธีไม่ให้มันแสดงหรือเปล่าคะ ขอบคุณค่ะ
โค้ด VB
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Imports System.Data.SqlClient
Imports System.Data
Public Class DProfitReport_View
Dim strConnection As String
Dim Conn As SqlConnection
Dim adapter As SqlDataAdapter
Dim strAdd As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
strConnection = "Data Source=\SQLEXPRESS; Initial Catalog=Project; Integrated Security=True"
Conn = New SqlConnection(strConnection)
Conn.Open()
Dim paramValue As New ParameterDiscreteValue
paramValue.Value = Me.DateTimePicker1.Text
Dim paramfld As New ParameterField
paramfld.ParameterFieldName = "sale_date"
paramfld.CurrentValues.Add(paramValue)
Dim paramfields As New ParameterFields
paramfields.Add(paramfld)
CrystalReportViewer1.ParameterFieldInfo = paramfields
CrystalReportViewer1.ReportSource = New DProfitReport()
End Sub
End Class