有关ADO数据集的BookMark问题，望高手赐教

Question

FreeBookMark(bkBrowse)   //free 好像不能清除bkBrowse的内容，只能清  
除指向它的指针
BookMark最好在每次使用前或使用后给其赋值
bkBrowse：=nil；以上仅供参考......

Answer 1

将with TADODataSet(dbADOds) do
改为with dbADOds do

Answer 2

with dbADOds do
  begin
    if eof(bof) then exit;
    bkBrowse := GetBookMark;
    DisableControls;
    Close;
    try
      Open;
      try 
        GotoBookMark(bkBrowse);
      except
        Last;
      end;
    finally
      FreeBookMark(bkBrowse);
      EnableControls;
    end;
  end;