PC Forms: Err Msg: "Invalid Column Value" Using Grid Control (110095)

RESOLUTION

When the data in a custom form is unpackaged, the MEF ReadTaggedControls function expects a token at the end of the grid data string. When the grid has 0 or 1 rows, it is not there. To resolve this problem, you can update the code for the WriteTaggedControls and ReadTaggedControls functions by performing the following steps:

1. Open your E-Form project in Visual Basic.
2. In the Project window, select EFORM.BAS.
3. In the Procedures drop-down list box, select WriteTaggedControls.
4. Scroll to the section commented Grid Control.
5. Add the following code below the line:

       gridClip = Format$(ctrl.Rows) & Chr$(9) & Format$(ctrl.Cols) & Chr$(9)
      &ctrl.Clip
   
      If Right$(gridClip, 1) <> Chr$(13) Then
        gridClip = gridClip & Chr$(13)
      End If
   						

   The line that follows the new code is:

      MEFWriteText package, Tag, gridClip

6. From the Procedures drop-down list box, select ReadTaggedControls.
7. Scroll to the section commented Grid Control.
8. Add the following code below the line:

      gridClip = MEFReadText(package, Tag, "")
   
      If Right$(gridClip, 1) <> Chr$(13) Then
        gridClip = gridClip & Chr$(13)
      End If
   						

   The lines that follow the new code are:

      ctrl.Rows = Val(MEFGetToken(gridClip, Chr$(9)))
      ctrl.Cols = Val(MEFGetToken(gridClip, Chr$(9)))