with MainModule.CommQuery do

Question

with MainModule.CommQuery do
  begin
    Close;
    SQL.Text := 'select * from BCHospitalSet';
    Open;
    Edit;
    for i := 1 to RecordCount do
    begin
      j:=FieldByName('HOSPSETID').asinteger;
      case j of
        1: FieldByName('HOSPSETTEXT').asstring:=RzEdit1.Text;
        2: FieldByName('HOSPSETTEXT').asstring:=RzComboBox2.Text;
        3: FieldByName('HOSPSETTEXT').asstring:=RzComboBox1.Text;
        4: FieldByName('HOSPSETTEXT').asstring:=RzEdit2.Text;
        5: FieldByName('HOSPSETTEXT').asstring:=RzEdit8.Text;
      end;
      Next;
    end;
    post;
    Close;
  end;

Answer 1

报不在EDIT和INSERT模式
错在哪里
急

Answer 2

with MainModule.CommQuery do
  begin
    Close;
    SQL.Text := 'select * from BCHospitalSet';
    Open;
    for i := 1 to RecordCount do
    begin
      Edit;
      j:=FieldByName('HOSPSETID').asinteger;
      case j of
        1: FieldByName('HOSPSETTEXT').asstring:=RzEdit1.Text;
        2: FieldByName('HOSPSETTEXT').asstring:=RzComboBox2.Text;
        3: FieldByName('HOSPSETTEXT').asstring:=RzComboBox1.Text;
        4: FieldByName('HOSPSETTEXT').asstring:=RzEdit2.Text;
        5: FieldByName('HOSPSETTEXT').asstring:=RzEdit8.Text;
      end;
      Post;
      Next;
    end;
    Close;
  end;