您的位置：首页 > 其它

将数据集中的相同项目合并

2015-08-02 14:41 323 查看

问题描述：一张表中有两个字段，一个是名称，一个是金额，假如名称相同，则合并，金额相加。

解法：

1、先建表

[sql]create table tablet
(
name     VARCHAR2(40) not null,
price    NUMBER(4) not null
)
create table tablew
(
name     VARCHAR2(40) not null,
price    NUMBER(4) not null
)[/sql]

2、建立两个数据集cds1、cds2，cds1记录原始数据，cds2记录合并后的数据：

[delphi]
begin
cds1.Close;
cds1.CommandText := ' select name, price from tablet ';
cds1.Open;
cds2.Close;
cds2.CommandText := ' select name, price from tablew where 1=0 ';
cds2.Open;
cds1.First;
while not cds1.Eof do
begin
cds2.First;
if cds2.Locate('name',cds1.FieldByName('name').AsString,[] ) = false then
begin
cds2.Append;
cds2.FieldByName('name').AsString := cds1.FieldByName('name').AsString;
cds2.FieldByName('price').AsInteger := cds1.FieldByName('price').AsInteger;
cds2.Post;
end
else begin
cds2.Edit;
cds2.FieldByName('price').AsInteger := cds2.FieldByName('price').AsInteger + cds1.FieldByName('price').AsInteger;
cds2.Post;
end;
cds1.Next;
end;
end;
[/delphi]

内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理

标签：

相关文章推荐

新的分享

章节导航