在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等。