FASTREPORT 中数组的打印，解决问题就放分，快。大虾 请进 ( 积分: 75 )

  • 主题发起人 主题发起人 daocaoren0824
  • 开始时间 开始时间
D

daocaoren0824

Unregistered / Unconfirmed
GUEST, unregistred user!
我在程序中定义了一个三维数组如t[j][k],由于数据太多，我在fastreport 中为了统计传参数方便，也为 memo 定义为‘[t[1][2][4]]’,请问那位大虾，能给提示，或源代码。
daocaoren0824@163.com
 
我在程序中定义了一个三维数组如t[j][k],由于数据太多，我在fastreport 中为了统计传参数方便，也为 memo 定义为‘[t[1][2][4]]’,请问那位大虾，能给提示，或源代码。
daocaoren0824@163.com
 
下的真快 顶
大虾！提供思路也行，着急
 
在frReport的OnGetValue事件里写：
procedure TForm1.frReport1GetValue(const ParName: String;
var ParValue: Variant);
var
i,j,k:integer;
begin
for i:=0 to ..do
for j := 0 to ..do
for k := 0 to ..do
if parname='t['+inttostr(i)+']['+inttostr(j)+']['+inttostr(k)+']' then
parvalue := t[j][k];
end;
 
to hongxing_dl
谢谢关注
我用你的方法 怎么提示 ‘underclared idetifier :"parname"
请问 parname 是什么意识
不好意思 刚学 FASTREPORT
’
 
顶
 
你的事件找错了吧~~
在frReport的事件里找到OnGetValue这个事件没有？在这里面写程序就行，ParName和Parvalue是这个事件的一个参数而已。
 
to hongxing_dl
没有啊 我就是在frreport 啊 请看
procedure TForm1.monthreportGetValue(const VarName: String;
var Value: Variant);
var i,j,k:Integer;
begin
for j:=1 to 3do
for k:=1 to 4do
begin
if parname='t['+inttostr(1)+']['+inttostr(j)+']['+inttostr(k)+']' then
parvalue := '111112';
end;
有什么不对吗
end;
 
monthreport是你frReport的名字吗？
那你将上面程序里的ParName换成VarName，ParValue换成Value就可以了。
可能是版本不一样的原因
 
谢谢 是你说的 怎么显示的是个 空白的报表啊
对 frReport 还需要设置什么吗 谢谢 大哥
 
你的模板怎么定义的，应该不会有问题的啊。
 
to hongxing_dl 麻烦你了
frxUserDataSet1 还需要吗
我对 frreport 都是默认设置啊
 
to hongxing_dl
我在 for 循环 设了断点
运行时就没进来 谢谢 指点
 
to hongxing_dl
还在吗
我说的问题 还有那位大虾指点
 
顶 着
也有分
 
to hongxing_dl
多谢你得帮助我的问题解决了 谢谢 以后多指点
 
多人接受答案了。
 
您必须登录或注册才可回复。

Similar threads

H
如何在fastreport中打印A3大小的报表？(50分)
回复
3
查看
134
han_bin
H
P
打印的问题，不解决我就完蛋了(200分)
回复
13
查看
303
gmwing
G
S
请教各位大虾们一个打印机走纸的问题。。。？(50分)
2
回复
20
查看
574
Sdelphi_fu
S
W
FASTREPORT中大写金额函数的问题？(30分)
回复
4
查看
160
whxxr
W
D
fastreport分组合计问题(50分)
回复
4
查看
236
diwill
D
后退
顶部