datareport问题

Question

请问大家我现在想根据数据库中的字段数来添加Data Report中的文本框
改怎么做啊？用Data Report中的什么方法可以实现呢？？？
例如我现在得知数据库中的字段数是7 个那么我就在 Data Report中添加7个文本框
并且把字段的名字绑定到 文本框的DataField属性上
大概意思如下：
sql = "select* from Y_YSDWBH "
    Set rs = ExecuteSQL(sql)
   'rs.Fields.Count=在Data Report添加的文本个数 ********这不知道用什么方法做
    假如上面rs.Fields.Count=7 那么在Data Report中就添加加7个文本框然后进行
    下面的语句
    for i=0 to rs.Fields.Count-1
    drpt.Sections(1).Controls(text(i).Text).DataField = rs.Fields(i).Name
     next i 
drpt 是Data Report名字    Sections(1)是细节   
我现在这样测试一下不好使啊总是提示我下标越界谢谢大家了

Answer 1

With DataReport1
.Sections(2).Controls("Lbl").Caption = "ok"
.Show
End With

Answer 2

Dim cn As ADODB.Connection
Dim rst As ADODB.Recordset
Set cn = New ADODB.Connection
Set rst = New ADODB.Recordset
cn.Open "dsn=student"
rst.Open "select * from 学员表", cn
Set DataReport1.DataSource = rst
DataReport1.Sections("section1").Controls("text1").DataField = "姓名"
With DataReport1
.Sections(2).Controls("Lbl").Caption = "ok"
.Show
End With
Unload Me

Answer 3

'rs.Fields.Count=在Data Report添加的文本个数 ********这不知道用什么方法做
    假如上面rs.Fields.Count=7 那么在Data Report中就添加加7个文本框然后进行
    下面的语句
    现在关键是这个怎么弄了啊
请大家把注意力集中到这里吧
因为另一个问题已经解决了
谢谢大家了啊

Answer 4

Dim cn As ADODB.Connection
Dim rst As ADODB.Recordset
Set cn = New ADODB.Connection
Set rst = New ADODB.Recordset
cn.Open "dsn=student"
rst.Open "select * from 学员表", cn
Set DataReport1.DataSource = rst
For i = 1 To 2
DataReport1.Sections("section1").Controls(i).DataField = rst.Fields(i - 1).Name
Next
With DataReport1
.Sections(2).Controls("Lbl").Caption = "姓名"
.Show
End With
Unload Me

Answer 5

Dim cn As ADODB.Connection
Dim rst As ADODB.Recordset
Set cn = New ADODB.Connection
Set rst = New ADODB.Recordset
cn.Open "dsn=student"
rst.Open "select * from 学员表", cn
Set DataReport1.DataSource = rst
For i = 1 To 2
DataReport1.Sections("section1").Controls(i).DataField = rst.Fields(i - 1).Name
Next
With DataReport1
.Sections(2).Controls("Lbl").Caption = "姓名"
.Show
End With
Unload Me

Answer 6

在Data Report好象不能任意的添加文本框!!!