Question

我需要从来自第三方的对象创建一个列表（对象）。下面的代码可以工作。这是更好的方法吗？

Dim lstStudents as New List(of Student)
Dim classRoom as integer=101
Dim thisStudents As New Students(classRoom)
For Each objStudent As Student In thisStudents
        lstStudents.Add(objStudent)
Next

Answer 1

您可以使用 LINQ 来简化代码，例如

Sub CommandButton1_Click()

Dim Order_Number As String
Dim Finalrow As Long
Dim i As Integer
Dim sh As Worksheet
Dim cell As Range

Set sh = ThisWorkbook.Sheets("Orders")

sh.Unprotect "2021"

Sheets("orders").Range("L3:L900000").ClearContents

Order_Number = Me.ComboBox1.Value
Finalrow = sh.Range("A" & Application.Rows.Count).End(xlUp).Row

For i = 3 To Finalrow
   If Order_Number = Cells(i, 11) Then
          sh.Range("AA3:AA4" & Finalrow).Copy
          sh.Range("L3" & Finalrow).End(xlUp).Offset(1, 0).PasteSpecial xlPasteFormulasAndNumberFormats
   End If
Next i
Range("L3").Select
       
End Sub

要使其正常工作，lstStudents = thisStudents.ToList() 类必须实现 Students 接口。如果它只实现 IEnumerable(Of Student)，你必须这样做：

IEnumerable

如何将对象转换为列表（对象）

1 个答案: