选择导入的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
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货