连江景江花园:关于DataReport中的rpttextbox控件

来源：百度文库 编辑：高考问答 时间：2024/05/04 05:21:08
代码如下
Public conn As New ADODB.Connection
Public rs As New ADODB.Recordset
Public ConStr As String
ConStr = "provider=Microsoft.Jet.oledb.4.0;data source=" & App.Path & "\ksyy2000.mdb"
conn.Open ConStr
rs.CursorLocation = adUseClient
rs.Open "select * from 设备", conn, adOpenKeyset, adLockOptimistic
Set DataReport1.DataSource = rs
DataReport1.Sections(1).Controls("Text1").DataField = rs.Fields(1)
最后一句程序抱错
请问我错在哪里?数据库肯定连接上了
怎么才能把数据绑定到rpttextbox上面?

Field 对象的默认属性为Value，而
DataReport1.Sections(1).Controls("Text1").DataField＝字段名

你的代码中默许地将rs.Fields(1)的字段值（Value）给了DataField，而不是给的字段名（NAME）,所以以后记着别逃懒了，会给自己惹麻烦的。

将 DataReport1.Sections(1).Controls("Text1").DataField = rs.Fields(1) 改为：
DataReport1.Sections(1).Controls("Text1").DataField = rs.Fields(1).Name 就可以了。

关于DataReport中的rpttextbox控件 VB中的datareport问题 关于VB中DataReport报表设计的问题 我用VB中的DATAREPORT报表工具设计的报表的问题？ 在vb中的datareport的代码中引用控件无效，为什么？ VB中的DataReport在运行中是否可以连接多个记录集？ VB里DataReport问题 datareport问题 急急急 我现在在用vb的datareport做报表，我想打印MSFlexGrid中的内容，到底怎么样才能进行模糊查询的打印呢？ VB中DATAREPORT中的控件的字体(font)属性，为何所有控件的字体都变成了最后一个控件的字体大小。