Question

我用5个不同的记录查询MySql表。然后我填写VB6数据报告。我在表中有5条记录，其中包含字段Name和Surname，问题是报告显示的 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”。

Answer 1

这段代码

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。在使用

显示报告之前发生了所有5次更改

rptRuntime.Show

不言而喻，您将拥有一个具有固定标题的（重复报告）部分，每次重复都会显示相同的标题。

Answer 2

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

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

2 个答案: