16,749
社区成员
发帖
与我相关
我的任务
分享
function TForm1.SumDBGrid(DBGrid: TDBGrid):Integer;
var
I,Num: Integer;
begin
Result := -1;
try
while not DBGrid.DataSource.DataSet.Eof do
begin
DBGrid.DataSource.DataSet.First;
Num := 0;
for I := 0 to DBGrid.DataSource.DataSet.FieldCount -1 do
begin
if DBGrid.DataSource.DataSet.Fields[I+1].AsInteger > 30 then
Inc(Num);
end;
DBGrid.DataSource.DataSet.Next;
end;
Result := Num;
except
Exit;
end;
end;
while not DBGrid1.DataSource.DataSet.Eof do
begin
DBGrid1.DataSource.DataSet.First;
Num := 0;
for i := 0 to DBGrid1.DataSource.DataSet.FieldCount -1 do
begin
if DBGrid1.DataSource.DataSet.Fields[I+1].AsInteger > 30 then
Inc(Num);
end;
DBGrid1.DataSource.DataSet.Next;
end;