如何向fastreport中传递字符串变量(100分)

R

richit

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-21

• #1

在FASTREPORT中事先定义个变量，可从程序传入变量好像只能是数字型的，字符串无法传入，如“统计时间：2006年6月 到2006年7月”

 

Z

zywcd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-21

• #2

不知道你怎么传递的,你又是怎么定义的.
数字可以,字符串当然可以.

 

R

richit

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-21

• #3

现在报表设计器里增加变量ReportDate,然后在程序里frxReport1.Variables['ReportDate'] ：= '2006-01-01';这样执行程序是出错，如果：=号后为数据就可以，可我不需要显示数字啊

 

Z

zywcd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-21

• #4

看你的习惯了。
我喜欢放置一个frxUserDataSet1，这样随便怎么做都很容易。

 

R

richit

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-21

• #5

请问是不是FASTREPORT报表软件中的变量就只能是数字型的，那它究竟起什么作用呢

 

Q

qvbyaolin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-23

• #6

用這個
procedure TfrmDeptEmpBC.frxReport1GetValue(const VarName: String;
var Value: Variant);
begin
if comparetext(VarName,'Bdate')=0 then
Value:=datetostr(dtpBDate.date);
if comparetext(VarName,'Edate')=0 then
Value:=datetostr(dtpEDate.date);
end;

 

N

ntjrr

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-25

• #7

请问是不是FASTREPORT报表软件中的变量就只能是数字型的
这句话肯定不对.因为我经常传中文的进去,数字的还没怎么传过
frxReport1.Script.Variables['aa'] :=中文字符

 

N

ntjrr

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-25

• #8

我再猜猜,没试过,你改为'' ''双引号试试

 

L

lps

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-25

• #9

>>frxReport1.Variables['ReportDate'] ：= '2006-01-01';
我觉得是最后这个日期常量不对（这里是字符型的），可能fastreport要的是真正的日期或日期时间型。

 

R

richit

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-25

• #10

frxReport1.Script.Variables['aa'] :=中文字符
是错误的，程序报错啊

 

R

richit

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-25

• #11

>>frxReport1.Variables['ReportDate'] ：= '2006-01-01';
我觉得是最后这个日期常量不对（这里是字符型的），可能fastreport要的是真正的日期或日期时间型。
在frxReport中没有办法定义变量类型啊

 

R

richit

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-25

• #12

可是之RM报表组件中就可以实现，如：
RMReport1.Dictionary.Variables.AsString['统计日期'] :=
DateToStr(DateTimePicker1.Date) + ' 至 ' + DateToStr(DateTimePicker2.Date);
为什么啊，晕
//

 

K

kaida

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-25

• #13

frxReport1.Variables['ReportDate'] ：= [red]''''[/red]+'2006-01-01'+[red]''''[/red];

 

P

pjwork

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-25

• #14

frxReport1.Variables['ReportDate'] ：= ''''+'2006-01-01'+'''';
直接传常量,不经过运算,是需要双引号的

 

L

lps

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-25

• #15

如下写法是我的代码中的用法，肯定没问题(前三个是字符型，最后一个日期型)
procedure TForm1.frxReport1GetValue(const VarName: String;
var Value: Variant);
begin
if CompareText(VarName, 'curxxmc') = 0
then
Value := xxmch;
if CompareText(VarName, 'curjhxz') = 0
then
Value := jhxzh;
if CompareText(VarName, 'curpc') = 0
then
Value := pch;
if CompareText(VarName, 'curlqrs') = 0
then
Value := lqrs;
end;

 

L

lps

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-25

• #16

>>在frxReport中没有办法定义变量类型啊
可是可以直接写，类似于VB、VF吧，使用它就自动定义。至于能否定义我也不知道。

 

雪

雪狐狸

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-26

• #17

procedure TRuKuForm.PrnBtnClick(Sender: TObject);
begin
TfrMemoView(frReport2.FindObject('Memo24')).memo.text:=user;
TfrMemoView(frReport2.FindObject('Memo14')).memo.text:=DateLab.Caption;
frReport2.ShowReport ;
end;