在运行时填充的数据报告显示相同的记录，而不是每个不同的记录

如何解决在运行时填充的数据报告显示相同的记录，而不是每个不同的记录

| 我用5条不同的记录查询MysqL表。 然后，我填写一个VB6数据报告。 我的表中有5条记录，其中包含名称和姓氏字段，问题是报告显示 5个相同的名称，而不是5个不同的名称。 这5个相同的名称都属于从数据库中获取的最后一条记录，这是在运行时填充“数据报告”标签的代码：

    Set rs = New ADODB.Recordset       \'Creates record set
    strsql = \"select * from person\"
     rs.Open strsql,cn,strDBCursorType,strDBLockType,strDBOptions

If rs.EOF Then
   GoTo ExitSub
Else
    For B = 1 To rs.RecordCount
   \'MsgBox (rs!Name + \" \" + rs!Surname)
    rptRuntime.Sections(\"Section1\").Controls(\"lblName\").Caption = rs!Name
   rs.MoveNext
    Next B
End If
    rptRuntime.Show

将要填充的标签放置在“详细信息”部分中，名为\“ Section1 \”。     

解决方法

最好绑定到Recordset或自定义数据源对象。 DataReports不需要程序代码。     ,此代码块

For B = 1 To rs.RecordCount
\'MsgBox (rs!Name + \" \" + rs!Surname)
rptRuntime.Sections(\"Section1\").Controls(\"lblName\").Caption = rs!Name
    rs.MoveNext
Next B

将连续设置rs！Name 5次，最后以

rptRuntime.Sections(\"Section1\").Controls(\"lblName\").Caption

包含最后的更改。所有5处更改都在使用甚至显示报告之前发生

rptRuntime.Show

不用说，您将有一个（重复的报告）部分，该部分具有固定的标题，在每次重复中都显示相同的标题。