DSLSystems
asked on
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_STRIN G_LEN), MarshalAs(UnmanagedType.By ValTStr, SizeConst:=PE_VI_STRING_LE N)> _
Dim ViString As String
<VBFixedArray(2), MarshalAs(UnmanagedType.By ValArray, SizeConst:=3)> _
Dim ViDate() As Short
<VBFixedArray(5), MarshalAs(UnmanagedType.By ValArray, SizeConst:=6)> _
Dim ViDateTime() As Short
<VBFixedArray(2), MarshalAs(UnmanagedType.By ValArray, 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
We are using PEAddParameterCurrentValue
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_STRIN
Dim ViString As String
<VBFixedArray(2), MarshalAs(UnmanagedType.By
Dim ViDate() As Short
<VBFixedArray(5), MarshalAs(UnmanagedType.By
Dim ViDateTime() As Short
<VBFixedArray(2), MarshalAs(UnmanagedType.By
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
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.