TClientDateSet 的FieldDefs属性

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'; 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; //合计 adding with FieldDefs.AddFieldDef do begin DataType := ftInteger; end; CreateDataSet; end;

你可能感兴趣的:(TClientDateSet 的FieldDefs属性)