100分求解:怎样在ReportMachine中取得数据字段的值啊?(100分)

  • 主题发起人 主题发起人 walkersoft
  • 开始时间 开始时间
W

walkersoft

Unregistered / Unconfirmed
GUEST, unregistred user!
各位有没有在RM中使用脚本来控制数据集打印呢?问题是这样的:
我希望在打印一个数据集的时候根本每条记录某个字段的值来设置文本框是否显示,所以在该字段文本框的OnBeforPrint事件中用如下语句:
if [RMDataSet1."Barcode1"]='' then
Demo1.Visible := False
else
Demo1.Visible := True;
但RM却认为RMDataSet1."Barcode1"是没有定义的标识。。。
我的问题是:在RM脚本中如何来引用一个数据集字段的值呢?
不要告诉我在Delphi中传变量过来,对于一个数据集而不是单条记录的处理,这种方法是不行的
 
遇到同样问题,关注。。。
 
我也另一种方法解决了,希望对你有帮助:
把要取值的数据字段放在一个Demo里面,在脚本的代码里取Demo.Text即是该字段的值
 
有个按钮可以自动生成的 你那样的写法不正确
 
walkeresoft兄:
谢谢!你的办法对我很有帮助,已经解决!
whf兄:
可否说具体一点?虽然问题已经解决,可是我还是想知道如何在RM中如何使用脚本引用数据集字段的值。
 
我都存过19M
if OpenDialog1.Execute then
begin
if OpenDialog1.FileName = '' then
Exit;
FileName := OpenDialog1.FileName;
Mem := TMemoryStream.Create;
Mem.LoadFromFile(FileName);
Mem.Seek(0,soFrombegin
ning);
Query1.Close;
Query1.DatabaseName := 'D:/BLOB';
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('INSERT INTO BLOBNAME(NAME,FILENAMES) VALUES(:NAME,:FILENAMES)');
Query1.ParamByName('Name').AsString := FileName;
Query1.ParamByName('FileNAMES').LoadFromStream(Mem,ftBlob);
Query1.ExecSQL;
Mem.Free;
end;

如何取出blob字段內容并保存一個新的文件???
 
GetFieldValue('RMDBDataSet1."字段名"')
 
谢谢xiaowanjun和am2001!
 
后退
顶部