VB6 上的形状附加问题

Question

我正在使用 VB6 并尝试创建一个报告，为了创建这个报告，我使用了 3 个级别的形状。

"SHAPE APPEND " & _
    "  New adVarChar(15) As zoneId," & _
    "  New adVarChar(15) As zoneNam," & _
        "  ((SHAPE APPEND " & _
            "  New adVarChar(30) As ID, New adVarChar(30) As costumerName," & _
           "  ((SHAPE APPEND " & _
                "  New adVarChar(15) As productCode, New adVarChar(25) As produtName, New product(30) As product," & _
                "  New adVarChar(30) As price," & _
                "  New addouble As disount)" & _
                "  RELATE productCode to productCode) AS COST)" & _
            "  RELATE zoneId to zoneId) As FECHAS", _
    "Provider=MSDataShape;Data Provider=None"

此代码运行不显示错误，但在执行时不显示数据，查询测试工作完美。我正在使用 vb 设计器制作报告，并使用数组上的 DataField 和 DataMember 名称绑定数据。

示例：

rsCostumersZone.addNew Array("ZONEID", "ZONENAME"), (rsDataZone!tbz_id, rsDataZone!tbz_name)

感谢任何关于错误的提示。

Answer 1

在加载或设置数据源语句和 'Report.show' 语句之间放置一个消息框。我依稀记得这个问题。如果可行，您可以将消息框更改为类似 DoEvents 或 Wait 的内容。

VB6 上的形状附加问题

Trouble with shape append on VB6

vb6

vba