PEAddParameterCurrentValue

We have a legacy VB6 project which is being brought forward to VB.NET and it uses the Crystal Reports DLL crpe32.dll to set up and print reports.

We are using PEAddParameterCurrentValue to set the value of one of the parameters in the report. The function returns success, but the when the report prints, the parameter field is blank.

The structure being used for passing the value is as follows:

  Public Structure peValueInfo
    Dim StructSize As Short
    Dim ValueType As Short
    Dim ViNumber As Double
    Dim ViCurrency As Double
    Dim ViBoolean As Integer
    <VBFixedString(PE_VI_STRING_LEN), MarshalAs(UnmanagedType.ByValTStr, SizeConst:=PE_VI_STRING_LEN)> _
      Dim ViString As String
    <VBFixedArray(2), MarshalAs(UnmanagedType.ByValArray, SizeConst:=3)> _
      Dim ViDate() As Short
    <VBFixedArray(5), MarshalAs(UnmanagedType.ByValArray, SizeConst:=6)> _
      Dim ViDateTime() As Short
    <VBFixedArray(2), MarshalAs(UnmanagedType.ByValArray, SizeConst:=3)> _
      Dim ViTime() As Short
    Dim ViColor As Integer
    Dim ViInteger As Short
    Dim ViC As Byte
    Dim Ignored As Byte
    Dim ViLong As Integer
    Public Sub Initialize()
      ReDim ViDate(2)
      ReDim ViDateTime(5)
      ReDim ViTime(2)
    End Sub
  End Structure