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

| 我用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
不用说,您将有一个(重复的报告)部分,该部分具有固定的标题,在每次重复中都显示相同的标题。     

要回复问题请先登录注册