除了二楼 tlliqi 版主的方法:修改表格的 ReadOnly 属性外,我还有一种方法:修改数据环境中表的 ReadOnly 属性,权当开阔一下思路吧。
1. 将表加入表单的数据环境,并设置表的 ReadOnly = .t.
2. 在表单中添加一个“编辑”按钮,其 Click 事件代码如下:
Local nRec
nRec = IIF(EOF('表1'),0,RECNO('表1'))
WITH Thisform.DataEnvironment
.CloseTables
.Cursor1.Readonly = !.Cursor1.Readonly
.OpenTables
ENDWITH
Thisform.Grid1.RecordSource = Thisform.Grid1.RecordSource
IF nRec # 0
GO nRec IN 表1
ENDIF
THISFORM.Refresh
THIS.Caption = IIF(THIS.Caption='编辑','浏览','编辑')
ENDWITH