在你的界面里在加一個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;
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;
和数据库有关吗?有关就别用listview了 没关系就加一下呗,反正也不是很难
zje:=0; for i:=0 to Listv.Items.Count-1 do zje:=Zje+StrToint(ListV.Items.Item[i].SubItems.Strings[4]);错误 list index out of bounds(4) 我以前用也没错的
連接好后,在其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;
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;
没关系就加一下呗,反正也不是很难
for i:=0 to Listv.Items.Count-1 do
zje:=Zje+StrToint(ListV.Items.Item[i].SubItems.Strings[4]);错误 list index out of bounds(4) 我以前用也没错的
也是这个错误