FIX: Visual FoxPro 7.0 Quits When You Run a Form with Grid (318902)

RESOLUTION

A supported hotfix is now available from Microsoft, but it is only intended to correct the problem that this article describes. Apply it only to systems that are experiencing this specific problem.

To resolve this problem, contact Microsoft Product Support Services to obtain the hotfix. For a complete list of Microsoft Product Support Services telephone numbers and information about support costs, visit the following Microsoft Web site:Note In special cases, charges that are ordinarily incurred for support calls may be canceled if a Microsoft Support Professional determines that a specific update will resolve your problem. The usual support costs will apply to additional support questions and issues that do not qualify for the specific update in question.

The English version of this fix should have the following file attributes or later:

   Date       Time    Version      Size    File name     Platform
   -------------------------------------------------------------
   8-Mar-2002 13:30:01  9499      4.16MB   Vfp7.exe
   8-Mar-2002 13:30:02  9499      1.09MB   Vfp7enu.dll
				

LOCAL laForm[1], loForm AS FORM
CD JUSTPATH(SYS(16))
CLOSE DATABASES ALL
ERASE Q318902*.*

CREATE TABLE Q318902_dbf (cField1 C(10), cField2 C(10))
CREATE FORM Q318902_frm NOWAIT

ASELOBJ(laForm, 1)
loForm = laForm(1)
WITH loForm
	.ADDOBJECT("Grid1", "Grid")
	.grid1.COLUMNCOUNT = 2
	.grid1.RECORDSOURCE = "Q318902_dbf"
	.grid1.Column1.CONTROLSOURCE = "Q318902_dbf.cField1"
	.grid1.Column2.CONTROLSOURCE = "Q318902_dbf.cField2Bad"
ENDWITH
KEYBOARD '{ctrl+w}'
DOEVENTS()

MODIFY FORM Q318902_frm NOWAIT METHOD UNLOAD
DOEVENTS()
KEYBOARD "* Remove this line: form does not disappear.{CTRL+W}{CTRL+W}"
DOEVENTS()

CLOSE ALL
USE Q318902_dbf
DO FORM Q318902_frm