rpp
Ok, I believe understand except for one thing. The Grid in which I set up programatically, with ControlSource's for each field to be shown, does not refresh once I change the value in my ComboBox. It works when I first load the form, but when I select another value in the ComboBox the grid goes empty.
I have tried to clear the connection to the grid from the table, but it has not worked
This is my Select Method I have created that was to repopulate the grid on the form when the user changed a value in the ComboBox.
What have missed It's as if once the grid is initilized it cannot be updated.
***********************************************
* GET THE DATA FOR THE FORM
***********************************************
IF USED('cAdtype')
USE IN cAdtype
Thisform.grdadtype.recordsource = " "
Thisform.grdadtype.recordsourcetype = 0 &&Table
ENDIF
SELECT ALL * ;
FROM adtype ;
WHERE adtype.booktype = Thisform.booktype ;
INTO CURSOR cAdtype
***********************************************
* GET THE GRID READY FOR THE FORM
***********************************************
Thisform.grdadtype.recordsource = "cAdtype"
Thisform.grdadtype.recordsourcetype = 1 &&ALIAS
Thisform.grdadtype.columncount = 4
Thisform.grdadtype.deletemark = .f.
Thisform.grdadtype.gridlines = 2 &&vertical only
Thisform.grdadtype.Column1.ControlSource = 'adtype'
Thisform.grdadtype.Column1.Header1.Caption = 'Adtype'
Thisform.grdadtype.Column1.Readonly = .T.
Thisform.grdadtype.Column2.ControlSource = 'description'
Thisform.grdadtype.Column2.Header1.Caption = 'Description'
Thisform.grdadtype.Column3.ControlSource = 'rate'
Thisform.grdadtype.Column3.Header1.Caption = 'Rate'
Thisform.grdadtype.Column3.SetAll("DynamicInputMask", "@l$ ###,###,###.##")
Thisform.grdadtype.Column4.ControlSource = 'priority'
Thisform.grdadtype.Column4.Header1.Caption = 'Priority'
Thisform.grdadtype.column1.width = (Thisform.grdadtype.width * .20)
Thisform.grdadtype.column2.width = (Thisform.grdadtype.width * .50)
Thisform.grdadtype.column3.width = (Thisform.grdadtype.width * .12)
Thisform.grdadtype.column4.width = (Thisform.grdadtype.width * .10)