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