Cystal Report with between - Visual Basic 9 RRS feed

  • Pergunta

  • 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

                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
                crParameterDiscreteValue.Value = aaa.Text

                CrystalReportViewer1.ReportSource = CR
                MsgBox("Preencha todos os campos!", MsgBoxStyle.Information, "Alerta!")
            End If
        End Sub

    quarta-feira, 19 de agosto de 2009 15:48