Advertisement
Advertisement
| 06.18.2008 at 08:31AM PDT, ID: 23495617 |
|
[x]
Attachment Details
|
||
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: |
Private Sub SetCurrentValuesForParameterField(ByVal myReportDocument As ReportDocument, ByVal strParameterName As String, ByVal strParameterValue As String)
Dim currentParameterValues As ParameterValues = New ParameterValues()
Dim myParameterDiscreteValue As ParameterDiscreteValue = New ParameterDiscreteValue()
myParameterDiscreteValue.Value = strParameterValue
currentParameterValues.Add(myParameterDiscreteValue)
Dim myParameterFieldDefinitions As ParameterFieldDefinitions = myReportDocument.DataDefinition.ParameterFields
Dim myParameterFieldDefinition As ParameterFieldDefinition = myParameterFieldDefinitions(strParameterName)
myParameterFieldDefinition.ApplyCurrentValues(currentParameterValues)
End Sub
|