http://delphi.about.com/od/usedbvcl/l/aa032503a.htm
var
i: Integer;
sum : Single;
INSTR : String ;
begin
if DBGrid1.SelectedRows.Count > 0 then
begin
sum := 0;
with DBGrid1.DataSource.DataSet do
begin
for i := 0 to DBGrid1.SelectedRows.Count-1 do
begin
GotoBookmark(Pointer(DBGrid1.SelectedRows.Items[i]));
sum:= sum + AdoQuery1.FieldByName('Size').AsFloat;
INSTR := INSTR + AdoQuery1.FieldByName('ID').AsString + ',';
end;
end;
edSizeSum.Text := FloatToStr(sum);
end ;
Delete(INSTR, length(INSTR) , 1) ;
وقتي شما مي توني ليست ركوردهاي انتحابي رو بگيري مي توني يه Query ايجاد كني
بر فرض اگه ID اون ركوردها در بالا گرفتي ميشه يه كوئري حذف يا انتخاب ديگه نوشت
AdoQuer2.Sql.Text := 'Select * From TableName where ID IN (' + +')'
قوانین ایجاد تاپیک در تالار
پاسخ با نقل قول