Como receber o conteúdo do parâmetro do Crystal

[dansimoes 0]

Olá pessoal,

 

Usei o seguinte codigo para pegar o total de parametros que um relatorio em crystal possui...

 

nB = crParameterFieldDefinitions.Count

Agora, como faço pra percorrer parâmetro por parâmetro e verificar o conteúdo dele?

Eu tentei fazer o seguinte, mas não deu certo o retorno do valor vem NULL e o parâmetro do relatorio tem um valor que coloquei...

 

o que to fazendo de errado?

 

While nA <= nB
			crParameterFieldDefinition = crParameterFieldDefinitions.Item(nA - 1)

			If crParameterDiscreteValue.Value <> "TODAY" Then
				crParameterDiscreteValue.Value = dtNovaData
				crParameterValues = crParameterFieldDefinition.CurrentValues
				crParameterValues.Clear()
				crParameterValues.Add(crParameterDiscreteValue)
				crParameterFieldDefinition.ApplyCurrentValues(crParameterValues)
			Else
				crParameterDiscreteValue.Value = dtNovaData1
				crParameterValues = crParameterFieldDefinition.CurrentValues
				crParameterValues.Clear()
				crParameterValues.Add(crParameterDiscreteValue)
				crParameterFieldDefinition.ApplyCurrentValues(crParameterValues)
			End If
			nA = nA + 1
		End While

[quintelab 91]

Eu to achando estranho, pois normalmente o software alimenta os parâmetros do Crystal, você esta tentando receber estes valores. Estes valores ja foram alimentados? Por onde?

 

Abraços...