您所在位置：主题：帮忙看一下排顺不行。
dyrqydl
[专家分：0] 发布于 2010-04-15 11:46:00
procedure Memo71OnBeforePrint(Sender: TfrxComponent);
begin
Memo71.text:='';
ADOQUERY1.CLOSE;
ADOQUERY1.SQL.CLEAR;
ADOQUERY1.SQL.ADD('SELECT CYPJB FROM TBYPXX '
+' where csz='''+<导航数据集2."CXMBM">+''' ORDER BY CYPJB ');
ADOQUERY1.open;
if not (( adoquery1.isempty) and ( <导航数据集2."CDLMC"><>'西药费'))
then
Memo71.text:= adoquery1.fieldbyname( 'cypjb').AsString;
end;
begin
Memo71.text:='';
ADOQUERY1.CLOSE;
ADOQUERY1.SQL.CLEAR;
ADOQUERY1.SQL.ADD('SELECT CYPJB FROM TBYPXX '
+' where csz='''+<导航数据集2."CXMBM">+''' ORDER BY CYPJB ');
ADOQUERY1.open;
if not (( adoquery1.isempty) and ( <导航数据集2."CDLMC"><>'西药费'))
then
Memo71.text:= adoquery1.fieldbyname( 'cypjb').AsString;
end;