很菜的问题!!

C7 2003-10-20 10:11:25
我在程序里用了个ListView组件

建了6列

编码 名称 数量 价格 单位 小计

我想对 小计 一列进行求和,不知道要怎么做??????

大哥大姐帮帮忙,谢谢
...全文
31 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
C7 2003-10-20
  • 打赏
  • 举报
回复
发现问题所在了,我把代码写在ListView1Change过程里了,写在别的地方就不会出错
C7 2003-10-20
  • 打赏
  • 举报
回复
To: dickeybird888(于伟刚)
也是这个错误
C7 2003-10-20
  • 打赏
  • 举报
回复
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) 我以前用也没错的
vavyboyleon 2003-10-20
  • 打赏
  • 举报
回复
和数据库有关吗?有关就别用listview了
没关系就加一下呗,反正也不是很难
dickeybird888 2003-10-20
  • 打赏
  • 举报
回复
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;
henry2003 2003-10-20
  • 打赏
  • 举报
回复
在你的界面里在加一個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;
C7 2003-10-20
  • 打赏
  • 举报
回复
其实我是想知道,怎么样取LISTVIEW中的某一单元格的值
surdon 2003-10-20
  • 打赏
  • 举报
回复
我也想知道 帮你UP!!!!!!!!!!!!!!!

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧