procedure TFormdfstaff.setdf;
var
  params:string;
begin
  if length(editdfstaff.text) = 0 then
    exit;
  if length(editsq.text) = 0 then
    exit;
  with dfstaff do
  begin
    close;
    params[0].asstring := sqgsjbxx.fieldbyname('id').asstring;
    params[1].asstring := editdfstaff.text;
    open;
    first;
    if eof then
    begin
      dfmb.First;
      while not dfmb.Eof do
      begin
        append;
        fieldbyname('sqid').AsString :=
          sqgsjbxx.fieldbyname('id').asstring;
        fieldbyname('staffname').AsString :=
          editdfstaff.Text;
        fieldbyname('dfid').AsString :=
          dfmb.fieldbyname('dfid').AsString;
        fieldbyname('group').AsString :=
          dfmb.fieldbyname('group').AsString;
        fieldbyname('item').AsString :=
          dfmb.fieldbyname('item').AsString;
        post;
        dfmb.Next;
      end;
    end;
    close;
    open;
  end;
end;


这个程序有问题,但是我不知道错在什么地方,请指教!我今天第一次来这个论坛,希望得到帮助,谢谢各位GGJJ了!