After a "PACk" tou need to recreate the grid

try


/prg
with oGrid
local nColumnIndex
for m.nColumnIndex = 1 to .ColumnCount
.Columns(m.nColumnIndex).Comment = .Columns(m.nColumnIndex).ControlSource
endfor
* prepare grid for refreshing of the Record Source
.RecordSource = ""
endwith
* do refreshing of the record source
pack

with oGrid
* restore record source
.RecordSource = "DBFfile"
* restore control sources
for m.nColumnIndex = 1 to .ColumnCount
.Columns(m.nColumnIndex).ControlSource = .Columns(m.nColumnIndex).Comment
endfor
endwith




>Here's another game of whats-wrong-with-my-code
>If a record has been deleted the Grid disappears after this code:
>
>*** COMMAND3.CLICK UPDATE
>Set Safety Off
>nAnswer= 0
>. blah . blah . blah
>Select ModiComm
>Set Order To Grpid
>Go Top
>ThisForm.Command4.Enabled= .T.
>ThisForm.grdModicomm.Visible = .F.
>PACK
>ThisForm.grdModicomm.Visible = .T.
>ThisForm.grdModicomm.ReadOnly=.T.
>ThisForm.grdModicomm.Refresh
>Set Safety On
>
>Edits and adds don't have this problem, What's Up?