在报表中如何将模块中的变量预览或打印出来

付谦

我参照资料,编写了以下模块程序:

Sub lm()

Dim sr1 As String

Dim sr As String  

Set db = CurrentDb() '指定数据库为当前数据库

Set recname = db.OpenRecordset("select * from 主集2005  where MID([单位代码],1,3) ='151' And MID([职务代码],1,1) ='2'")

Set strname = recname![姓名] '指定记录集"姓名字段"

Do Until recname.EOF

sr = sr + " " + strname

recname.MoveNext

Loop

MsgBox (sr)

'recname.Close

End Sub

单独在模块中能运行并显示变量(SR)内容,如何与报表连接,能显示并打印变量(SR)内容.请帮忙.急!

[此贴子已经被作者于2005-3-2 20:03:16编辑过]

swx

将MsgBox (sr) 改为：me.文本框=sr

wu8313

搂主帖子中的这一句：Dim sr As String  '声明一个整型变量注释和代码好像不一致，没有看明白。

付谦

将MsgBox (sr) 改为：me.文本框=sr    仍然解决不了问题，继续请行家指点。注释和代码有的不一致，是我更改程序时没改过来。

静儿

要不将例子放上来看看