导入Excel数据问题，起早的大大们进来帮忙！！！！

Question

同样一段代码，在单机版中运行没问题，但在网络版中就会提示
Empty row cannot be inserted.row must have at least one column valus set检查代码是这里出了问题：
with Qry_Data do
        begin
          Append;
          for k:=1 to Qry_Field.RecordCount do
          begin
            with Qry_CellID do
            begin
              Close;
              SQL.Clear;
              SQL.Add('select * from T_Temp where S_Field='''+F_Field[k]+'''');
              Open;
              m:=FieldByName('CellID').AsInteger;
            end;
            //showmessage(S_Field[k]);
            FieldByname(S_Field[k]).AsString:=Frm_Main.eclApp.activesheet.cells.item[i,m].Text;
          end;
          Post;
        end;

Answer 1

自己搞定了，嘿嘿，没人来要分