能否设置报表控件值为自定义常量？

rcylbx

比如给自定义常量strXuHAO赋值，strXuHao="0001",希望在报表文本框中引用此常量,能不能实现，如果能的话，烦请写出表达式实例，先谢谢了！

红尘如烟

表达式中可以使用函数,但不能直接引用代码中的变量或常量

andymark

在模块里定义一下
Public Const SoftName = "0001"

Trynew

你可以在报表中新建一个文本框，命名为“strXuHao”，然后在控件来源中输入公式“='0001'”，则在报表文本框中可以象其他字段名称一样引用此常量：=[字段1 & [strXuHao]，也可以在程序中修改此文本框的数值。
如果你要每条记录前显示序号：0001，0002……，则要把此文本框放在主体中，控件来源中输入“=1”，运行总和属性选为：“全部之上”，格式中输入“0000”。

rcylbx

报表模块中好像不能直接引用常量和变量，找到了一个变通的法子将需要提取额值保存在表中，在报表中新建标签，利用标签的 caption 属性，使用DLookUp方法，提取所需的数值，赋值给标签的caption属性，在报表打开事件中调用以上代码即可实现打印
代码示例：意思为在tblYaoDian表中找到“药店序号”字段等于“001”的记录的“药店名称”字段的值，赋予“签名”标签caption属性
Me.签名.Caption = DLookup("药店名称", "tblYaoDian", "药店序号='001")