增加一行,就行了thisform.grid1.Refresh &&刷新控件值
SELE DBFNAMEGo TopThisform.GRID1.RecordSourceType = 1Thisform.GRID1.RecordSource = "DBFNAME"thisform.GRID1.SetFocus Thisform.Refresh
加上一句:thisform.grid1.recordsource="表名"