使用TClientDateSet 在内存中创建一个临时表

    //------------------创建本地表-----使用TClientDateSet 在内存中创建一个临时表--------------------------------------

    for i := ACS.FieldDefs.Count -1 downto 0 do
    begin
      ACS.FieldDefs.Delete(i);
    end;
    ACS.Close;

    if ACS.Active then ACS.Close;

    with ACS do begin
      with FieldDefs.AddFieldDef do begin
        DataType := ftString;
        Size := 20;
        Name := 'ksbh';
      end;

      with FieldDefs.AddFieldDef do begin
        DataType := ftString;
        Size := 20;
        Name := 'gg';
//        Name := 'jzlgg';
      end;

      for i := 2 to AGrid.Columns.Count -1 do
      begin
        with FieldDefs.AddFieldDef do begin
          DataType := ftInteger;
          Name := AGrid.Columns[i].FieldName;
        end;
      end;
     
      //合计  06-1-18 adding
      with FieldDefs.AddFieldDef do begin
        DataType := ftInteger;
      end;
      CreateDataSet;
    end;