procedure TForm1.Button1Click(Sender: TObject);
var tempstr,tempstr_a:string;
i,j:integer;
begin
for i:=0 to listview1.Items.Count-1 do
begin
tempstr:=listview1.Items.Item[i].Caption;//第一列记录
for j:=0 to listview1.Columns.Count do //listview1.Columns.Count 总列数
tempstr_a:=listview1.Items.Item[i].SubItems.Strings[j];//第二列起记录
end;
end;
在你的界面里在加一個ADODataSet,
連接好后,在其CommentText中加入如下SQL語句: Select Sum(小計) as total from table where "你要對哪些資料小計",
再在wwDbGrid里加入如下事件(wwDBgrid的option里的showfooter設為True):
procedure TForm1.wwDBGrid1UpdateFooter(Sender: TObject);
begin
wwDBGrid1.ColumnByName('小計').FooterValue:=AdoDataset1.fieldbyName('total').asstring;
end;