雷迪姆阵列？？？

Kheilmann · 发表于 2006-11-16 13:17:46

当我有 Preserve 关键字时，我不断收到错误，当我将其删除时，我不会收到错误...
我需要保留数组中的数据，因此，如何同时保留并使数组变大。
帮助中的注释说您只能在使用保留时更改最后一个维度，但我不明白这意味着什么......
我的数组设置如下
Public roughPart（）作为字符串
Public roughPartQty（）作为整数
Public topoutPart（）作为字符串
Public topoutPartQty（）作为整数
这是与上述问题相关的代码部分...

copy

Else:
        Set blkPart = TempSet(X)
            If blkPart.Name = "Assembly" Then
                cntAssembly = cntAssembly + 1
                For Each attPart In blkPart.GetAttributes
                    Select Case attPart.TagString
                        Case "ASSEMBLY":
                            If attPart.TextString = "" Then
                                Exit For
                            Else:
                                Assembly = attPart.TextString
                            End If
                    End Select
                Next attPart
                
                'SQLstring = "Select PartID, QTY, AssemblyType From tblAssembly Where AssemblyName ='" & Assembly & "';"
                SQLstring = "Select tblAssembly.PartID, tblAssembly.Quantity, tblAssembly.AssemblyType, tblParts.PartName From tblAssembly Inner Join tblParts ON tblAssembly.PartID = tblParts.PartID Where tblAssembly.AssemblyName ='" & Assembly & "';"
                Set PlumbingREC = PlumbingDB.OpenRecordset(SQLstring, dbOpenDynaset)
                
                If PlumbingREC.RecordCount > 0 Then
                    If PlumbingREC.EOF And PlumbingREC.BOF Then
                        Exit Sub
                    Else:
                        PlumbingREC.MoveFirst
                        Y = 0
                        Do While Not PlumbingREC.EOF
                        
                            ReDim roughPart(Y, cntAssembly) As String
                            ReDim roughPartQty(Y, cntAssembly) As Integer
                            
                            If PlumbingREC.Fields("AssemblyType").value = "Rough" Then
                                roughPart(Y, cntAssembly) = PlumbingREC.Fields("PartName").value
                                roughPartQty(Y, cntAssembly) = PlumbingREC.Fields("Quantity").value
                                Y = Y + 1
                            End If
                            
                            PlumbingREC.MoveNext
                        Loop
                        
                        PlumbingREC.MoveFirst
                        Y = 0
                        Do While Not PlumbingREC.EOF
                        
                            ReDim topoutPart(Y, cntAssembly) As String
                            ReDim topoutPartQty(Y, cntAssembly) As Integer
                            
                            If PlumbingREC.Fields("AssemblyType").value = "TopOut" Then
                                topoutPart(Y, cntAssembly) = PlumbingREC.Fields("PartName").value
                                topoutPartQty(Y, cntAssembly) = PlumbingREC.Fields("Quantity").value
                                Y = Y + 1
                            End If
                            
                            PlumbingREC.MoveNext
                        Loop
                    End If
                End If
                
                PlumbingREC.Close
                Set PlumbingREC = Nothing

我正在尝试执行的操作的摘要：
我有1个块，“程序集”，其中1个属性“程序集”。该属性的值是存储在 *.mdb 文件中的程序集名称。因此，我的部件存储在数据库中，而不是存储在块中的多个属性中。
一个组件块可能具有仅引用一个或两个零件的装配体名称，但另一个模块可能具有 20 到 30 个零件。因此，当我创建（redim）我的数组时...roughPart（X，Y）第一列中可能只有 2 行数据，然后当查询下一个程序集块并且它有 30 个零件时，该列中将有 30 行。这是一个问题吗？？
提前感谢您的帮助...我希望这足够清楚，如果你需要，我会发布更多细节......
谢谢

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

Kheilmann · 发表于 2006-11-16 13:27:22

出于某种原因，我认为您只能重新划分一维数组。

Kheilmann · 发表于 2006-11-16 13:39:10

这意味着一旦您将数组的尺寸设置为其初始大小，如下所示：
ReDim粗糙部分（Y， cntAssembly）作为循环中的字符串
，每次后续迭代只能替换cntAssembly的新值。Y的值不能改变。
实现目标的一种方法是预先计算记录计数，以便在开始循环之前建立每个数组的第一个维度。

Dnereb · 发表于 2006-11-16 13:49:37

此时，我正在考虑调用一个过程，该过程将获取找到的数据并立即将其导出到Excel工作簿。而不是查询所有数据并编译成数百个变量，然后将这些变量发送到电子表格。我认为这将消除对我的阵列的需求...
你同意吗？或者我错过了什么？
顺便说一句..
当我再次阅读ReDim的帮助时。它更有意义..
您只能更改最后一个维度的大小，而根本无法更改维度的数量。
因此，如果您从单个开始，则无法更改为2 dim数组。但是，如果你有一个暗淡，你可以随时更改该暗淡的大小，如果你有一个多重暗淡的数组，你只能改变最后一个暗淡的大小（第2个表示双调，第3个表示3层，依此类推）。
这意味着，如果我想使用此方法，我必须将我的第一个 Dim（Rows）预设为足够大的 # 以容纳所有可能的零件，然后每当找到新组件时，我就可以更改第 2 个 dim（列）的 # 。
我认为立即将数据导出到excel比先将数据编译为数组要容易得多。我会这样做，除非你们中的一个人有理由我不应该这样做。
再次感谢您的帮助...

Dnereb · 发表于 2006-11-16 13:54:40

谢谢你，查克
我预设它的问题有两个方面：
1。当我使用我的SQLstring查询我的数据库时，PlumbingREC的记录计数总是1。这是因为我在进行内部联接吗？
2.另一个问题是，查询的第一个块可能需要数组的第一个Dim为5个条目，而下一个块则可能需要30个条目。因此，在我看来，我必须对所有程序集进行记录计数，然后重新循环程序集，以将零件应用于数组

Fatty · 发表于 2006-11-16 14:06:09

我完全同意立即导出到Excell，只要不需要重新处理数据（组合排序和过滤东西）
创建交错数组的解决方法是在这样的数组中使用集合类型：

copy

Sub test()
Dim Cl() As New Collection
ReDim Preserve Cl(2)
Cl(0).Add ("YourStuff0.1")
Cl(0).Add ("YourStuff0.2")
Cl(0).Add ("YourStuff0.3")
Cl(0).Add ("YourStuff0.4")
Cl(1).Add ("YourStuff1.1")
Cl(1).Add ("YourStuff1.2")
Cl(1).Add ("YourStuff1.3")
Cl(1).Add ("YourStuff1.4")
Cl(2).Add ("YourStuff2.1")
ReDim Preserve Cl(3)
Cl(3).Add ("YourStuff3.1")
Cl(3).Add ("YourStuff3.2")
Cl(3).Add ("YourStuff3.3")
Cl(3).Add ("YourStuff3.4")
End Sub

你可以通过这种方式添加两个维度。缺点是，与真数组相比，收集对象的速度很慢。
因此，如果您不需要将数据保存在内存中...别这样。

quicksilver · 发表于 2006-11-16 14:12:25

您是否移动到最后一条记录（. movelast），因为在所有记录真正加载到记录集中之前，计数不会显示实际大小
也许我弄错了您想要什么，但是如果您知道记录的数量和字段的数量（Recordset.Fields.Count），您可以重新设置一个数组。
另一方面，如果您已经在记录集中保存了数据，我认为没有必要在没有任何特殊原因的情况下将其传输到数组中。

Kheilmann · 发表于 2006-11-16 15:08:42

Kevin，尝试使用GetRow方法：
这是我的程序代码片段：

copy

Private Sub UserForm_Initialize()
    On Error GoTo ErrorHandler
    Dim Cnxn As ADODB.Connection
    Dim rstNew As ADODB.Recordset
    Dim strCnxn As String
    Dim strSQL As String
    Dim retArr As Variant
    Dim i As Long, j As Long
    
    ' Open connection
    
    strCnxn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
               "Data Source=D:\AUTOLISP\LISPS\VBA\ACCESS\data.mdb;"
    Set Cnxn = New ADODB.Connection
    Cnxn.Open strCnxn
    
    ' Open table
    
    Set rstNew = New ADODB.Recordset
    strSQL = "prot_Viabilita" ' table name
    rstNew.Open strSQL, Cnxn, adOpenKeyset, adLockOptimistic, adCmdTable
    [b]retArr = rstNew.GetRows[/b]
    Me.Caption = "Data from table " & Chr(34) & strSQL & Chr(34)
    '
    ' Transpose record data and populate list box
    '
    ReDim dataArr(UBound(retArr, 2), UBound(retArr, 1)) As String
    For i = 0 To UBound(retArr, 1)
    For j = 0 To UBound(retArr, 2)
    dataArr(j, i) = CStr(retArr(i, j))
    Next
    Next
    ListBox1.List() = dataArr
    ' clean up
    rstNew.Close
    Cnxn.Close
    Set rstNew = Nothing
    Set Cnxn = Nothing
    Exit Sub
    
ErrorHandler:
    ' clean up
    If Not rstNew Is Nothing Then
        If rstNew.State = adStateOpen Then rstNew.Close
    End If
    Set rstNew = Nothing
    
    If Not Cnxn Is Nothing Then
        If Cnxn.State = adStateOpen Then Cnxn.Close
    End If
    Set Cnxn = Nothing
    
    If Err  0 Then
        MsgBox Err.Source & "-->" & Err.Description, , "Error"
    End If
End Sub