如何解决如何在运行时在Lazarus中从数据库传递Lazreport变量中的参数?
如果我想在“ frReport1GetValue”事件中通过zeosDBO将来自Ms Access数据库的参数传递给Lazreport。 我的数据库记录是: enter image description here
procedure TForm2.frReport1GetValue(const ParName: String; var ParValue: Variant);
ZQuery1.ReadOnly :=true;
ZQuery1.sql.Text := 'select * from Test';
ZQuery1.Open;
x := 0;
while not ZQuery1.EOF do
begin
if ParName = 'MyTxt' then
begin
ParValue := ZQuery1.FieldByName('UName').Text;
end;
ZQuery1.Next;
x :=x+1;
end;
这将仅显示Lazreport中的最后一条记录重复
我们如何在Lazreport中以正确的方式获取报告。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。