訪問VBA類數組

Question

我試圖使用一些類，將持有發票數據，我似乎無法得到它的工作。我只是希望它能夠在數組中保存發票的詳細信息。繼承人的代碼，也許有人可以弄明白。 同樣id爲LineItems採取隨機數量的產品項目，不確定如何做到這一點。我這樣做最終通過ms訪問的web服務發送數據。

這裏是struct_XOrder其他代碼：

Public OrderNumber As String 
Public ClientShortName As String 
'"LineItems" is an array with elements defined as struct_LineItem 
'See Complex Types: Arrays in Microsoft Office 2003 Web Services Toolkit Help 
'for details on implementing arrays. 
Public LineItems As Variant 
Public OrderError As String 

繼承人的struct_LineItem：

Public ProductSKU As String 
Public Qty As Long 
Public UnitPrice As Variant 
Public ItemComment As String 
Public ItemError As String 

繼承人我主要的代碼

Sub webservicetest() 

Dim NewOrder As struct_XOrder 
Dim LineItems(1 To 2) As Variant 
Dim Xline(1 To 2) As Variant 

Set Xline() = struct_LineItem 

Set NewOrder = New struct_XOrder 

Set NewOrder.LineItems() = New struct_LineItem 
Set NewOrder.LineItems() = New Xline 
'Xline = New struct_LineItem 


Xline(1).ItemComment = "items" 
Xline(1).Qty = 10 
NewOrder.LineItems() = Xline() 


NewOrder.ClientShortName = "DemoClient" 
NewOrder.OrderNumber = "12345" 

'Xline(1).ItemComment = "item1" 
'Xline(1).Qty = 5 

Debug.Print NewOrder.ClientShortName 
Debug.Print NewOrder.OrderNumber 

'For i = LBound(Xline) To UBound(Xline): Debug.Print Xline(i): Next 

'Debug.Print Xline(1).ItemComment 
'Debug.Print Xline(1).Qty 

End Sub 

Answer 1

見的解釋意見。

改用VBA中的Type來創建結構。此外，您不需要按照您的方式使用Set。

此外，使用Option Explicit在每次使用VBA時都需要變量聲明，除非您想要一場噩夢。

這一切都可以在同一模塊。

---

'use this 
Option Explicit 

'VBA structs are defined like the following 
'and do not need "new" (similar to other languages) 
'when creating them 

Type struct_LineItem 
    ProductSKU As String 
    Qty As Long 
    UnitPrice As Variant 
    ItemComment As String 
    ItemError As String 

End Type 

Type struct_XOrder 
    OrderNumber As String 
    ClientShortName As String 

    'make this more clear 
    LineItems() As struct_LineItem 
    OrderError As String 
End Type 


Sub webservicetest() 

    Dim NewOrder As struct_XOrder 
    Dim LineItems(1 To 2) As Variant 
    Dim Xline(1 To 2) As struct_LineItem 

    'you can't do this, you need to specify which element 
    'in XLine you want to set 
    'Set Xline() = struct_LineItem 

    Dim myStruct As struct_LineItem 
    Xline(1) = myStruct 

    'you don't need "set" 
    NewOrder.LineItems = Xline() 

    'this won't update as if it's a reference, btw 
    Xline(1).ItemComment = "items" 
    Xline(1).Qty = 10 
    NewOrder.LineItems = Xline() 


    NewOrder.ClientShortName = "DemoClient" 
    NewOrder.OrderNumber = "12345" 

    Debug.Print NewOrder.ClientShortName 
    Debug.Print NewOrder.OrderNumber 

    'don't do ":" as this makes code unbearably not readable... 
    'For i = LBound(Xline) To UBound(Xline): Debug.Print Xline(i): Next 

    Dim i As Integer 
    For i = 1 To UBound(NewOrder.LineItems) 
     Debug.Print NewOrder.LineItems(i).ItemComment 
    Next i 

End Sub