Hi,
I need a help. I'm from Brazil. So...
I am doing a report in crystal report. I need to put a parameter like this: "From client until client."
I get the value "Until client," but i didn't get the value "From client". Here the code:
_________________________________________________________________________________________________
Private Sub bbb_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bbb.Click
If Not ttt.Text = String.Empty And Not aaa.Text = String.Empty Then
Dim strReportPath As String = "C:\MDTech_Systems\MDTech_Systems\Relatórios\reportCliente.rpt"
If Not IO.File.Exists(strReportPath) Then
MessageBox.Show("O relátório não foi encontrado!", "Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If
Dim CR As New ReportDocument
CR.Load(strReportPath)
Dim crParameterDiscreteValue As ParameterDiscreteValue
Dim crParameterFieldDefinitions As ParameterFieldDefinitions
Dim crParameterFieldLocation, crlocation As ParameterFieldDefinition
Dim crParameterValues As ParameterValues
crParameterFieldDefinitions = CR.DataDefinition.ParameterFields
crParameterFieldLocation = crParameterFieldDefinitions.Item("de_ate")
crParameterValues = crParameterFieldLocation.CurrentValues
crParameterDiscreteValue = New CrystalDecisions.Shared.ParameterDiscreteValue
crParameterDiscreteValue.Value = ttt.Text
crParameterValues.Add(crParameterDiscreteValue)
crParameterDiscreteValue.Value = aaa.Text
crParameterValues.Add(crParameterDiscreteValue)
crParameterFieldLocation.ApplyCurrentValues(crParameterValues)
CrystalReportViewer1.ReportSource = CR
Else
MsgBox("Preencha todos os campos!", MsgBoxStyle.Information, "Alerta!")
End If
End Sub
______________________________________________________________________________
Thank's
