如何从VB6.0应用程序中提供Crystal Report 8.5参数？

Question

如何从VB6.0 Application中提供Crystal Report 8.5参数？

Answer 1

这是一种方法（假设crxRpt指向有效的报表对象）：

Dim crxParam as CRAXDRT.ParameterField
For Each crxParam In crxRpt.ParameterFields
    Select Case crxParam.Name
        Case "{?MyStringParam1}"
            crxParam.AddCurrentValue "Parameter1 value"
        Case "{?MyNumberParam2}"
            crxParam.AddCurrentValue 25.35
    End Select
Next crxParam

Answer 2

使用GetItemByName（ByVal Name As String，可选ByVal SubreportName As Object = Nothing）作为CRAXDDRT.ParameterFieldDefinition方法。拥有ParameterFieldDefinition对象后，世界就是你的牡蛎。