在VB中给水晶报表上的文本框赋值时，报错“不能给只读属性赋值”？？？

Question

我用的代码是：
Dim txta As TextObject
txta = oRpt.ReportDefinition.ReportObjects.Item("text11")
txta.Text = frmLogin.Text1.Text数据库连接省略，想要将对话框frmlogin的text1的值赋给水晶报表的text11,为什么出错？谢谢！

Answer 1

txta.text 是只读属性
赋值是
txta.SetText 方法不过在vb里好像是不能
txta = oRpt.ReportDefinition.ReportObjects.Item("text11") 
这样的吧可以这样Dim txta As TextObject
Set txta = objCRReport.Sections(1).ReportObjects.Item(1)
txta.SetText "zzz"和这样
http://www.cnblogs.com/babyt/archive/2007/12/26/1016076.html