procedure TCustomDBGridEh.UpdateRowPosFromDatasetPos; begin if FInternalUpdatingDatasetPos then Exit; if FLockRowPosFromDatasetPos > 0 then Exit; FInternalUpdatingDatasetPos := True; try DataGroupsGotoRecordViewNo(FIntMemTable.InstantReadCurRowNum, False); finally FInternalUpdatingDatasetPos := False; end; end;
procedure TCustomDBGridEh.UpdateRowPosFromDatasetPos; begin if FInternalUpdatingDatasetPos then Exit; if FLockRowPosFromDatasetPos > 0 then Exit; FInternalUpdatingDatasetPos := True; try if Assigned(FIntMemTable) then //临时的增加这一句先解决目前这个问题先 DataGroupsGotoRecordViewNo(FIntMemTable.InstantReadCurRowNum, False); finally FInternalUpdatingDatasetPos := False; end; end;
----------------------------------------------
我是菜鸟,己经搞了十多年了,但是我仍然很菜。