830
社区成员
发帖
与我相关
我的任务
分享小女子加班在线等
选择导入的FROM里几条关于金额的记录，怎么样才能我选任意几条记录，这几条记录就能合并，再把合并后的数字赋值给我另一字段？代码如下：
procedure TFrmYWBalanceMSyxd.BitBtn3Click(Sender: TObject);
//var A: FLOAT;
begin
with (FDmdTranMaster as TDmdYWBalanceM) do
begin
QryRecevice.First;
while not QryRecevice.Eof do
begin
if QryRecevice.FieldByName('Selected').AsBoolean then
begin
//A： = A + 金额
if QrySecond.State <> dsInsert then
QrySecond.Append;
QrySecond.FieldByName('DKMoney').AsFloat := QryRecevice.FieldByName('RevAmouto').AsFloat;
QrySecond.Post;
end;
QryRecevice.Next;
end;
end;
close;
end;
其中QryRecevice是导入出来的FROM里的QRY
procedure TFrmYWBalanceMSyxd.BitBtn3Click(Sender: TObject);
//var A: FLOAT;
begin
with (FDmdTranMaster as TDmdYWBalanceM) do
begin
QryRecevice.First;
while not QryRecevice.Eof do
begin
if QryRecevice.FieldByName('Selected').AsBoolean then
begin
//A： = A + 金额
if QrySecond.State <> dsInsert then
QrySecond.Append;
QrySecond.FieldByName('DKMoney').AsFloat := QryRecevice.FieldByName('RevAmouto').AsFloat;
QrySecond.Post;
end;
QryRecevice.Next;
end;
end;
close;
end;
其中QryRecevice是导入出来的FROM里的QRY
...全文
请发表友善的回复…
发表回复
ahuige 2005-01-10
- 打赏
- 举报
小女子在等我吃饭吗？
boyfriendyu 2005-01-10
- 打赏
- 举报
请说得详细一点
ygflydream 2005-01-09
- 打赏
- 举报
"选择导入的FROM里几条关于金额的记录"????
ygflydream 2005-01-09
- 打赏
- 举报
up!
Kshape 2005-01-09
- 打赏
- 举报
可怜的MM……
但是你的问题不够清楚……
‘任意几条记录，这几条记录就能合并’？
什么的合并？
但是你的问题不够清楚……
‘任意几条记录，这几条记录就能合并’？
什么的合并？
digestion 2005-01-07
- 打赏
- 举报
你的合并累加部份的代码呢？
DG_1 2005-01-07
- 打赏
- 举报
...O...看不懂...帮顶
Kevin_Lmx 2005-01-07
- 打赏
- 举报
可怜的MM……
但是你的问题不够清楚……
‘任意几条记录，这几条记录就能合并’？
什么的合并？
但是你的问题不够清楚……
‘任意几条记录，这几条记录就能合并’？
什么的合并？
僵哥 2005-01-07
- 打赏
- 举报
帮顶一下，好象偶帮不上什么忙。你可以说出你的意图，然后告诉你如何处理，但是这段代码贴出来有点看不大明白该如何改。
