delphi dataset not in edit or insert mode错误

Question

procedure TForm1.Button10Click(Sender: TObject);
var
  StrSQL:string;
begin
  ClientDataSet1.Close;
  StrSQL:='select * from Input';
  ClientDataSet1.CommandText:=StrSQL;
  ClientDataSet1.Open;
  ClientDataSet1.First;
  while not ClientDataSet1.Eof do
  begin
      if ClientDataSet1.Fields[9].Value <> Null then 
      begin
        ClientDataSet1.Edit; 
        ClientDataSet1.Fields[9].AsBoolean := True;
        ClientDataSet1.Post;
      end;      if ClientDataSet1.Fields[9].AsBoolean then
       begin
       ClientDataSet1.Edit;
       ClientDataSet1.FieldByName('*****').AsString:=loginForm.edit2.Text;
       ClientDataSet1.Post;
       end;
       ClientDataSet1.Next;
   end;
   ClientDataSet1.ApplyUpdates (-1);

Answer 1

谢谢，问题已解决，马上加分。