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

我使用5个不同记录查询MySql表。然后我填写一个VB6数据报告。我有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”。

来源

2011-04-14 dimitarie

更好地绑定到Recordset或自定义数据源对象。 DataReports不需要程序代码。

来源

2011-04-14 21:05:08 Bob77

的代码

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

此块是要设置RS！名称5倍成一排，用包含上次变化rptRuntime.Sections("Section1").Controls("lblName").Caption结束了。之前甚至使用

rptRuntime.Show

它去显示报告不用说，你将有一个（重复报告）部分，有一个固定的标题，表示各重复相同的标题ALL 5度的变化发生了。

来源

2011-04-14 20:34:26 RichardTheKiwi

是否有可能使用标签控件数组，这是一个想法，但我不知道如何在运行时向报表添加标签控件数组... – dimitarie 2011-04-14 20:39:27

好吧，我用文本框代替标签，然后我可以选择一个领域。 – dimitarie 2011-04-14 20:46:17

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

回答

相关问题