Question

我正在寻找避免使用select case来访问特定列表的方法;我将在一个模块上有大约90个列表，并且取决于在列表框中选择的记录（手动填充我的数据库的大多数表的名称，但不是所有这些）我需要读取列表中的项目。所以我有这样的事情：

Public RelevantTables_Table001 As List(Of Table001) = New List(Of Table001)
Public RelevantTables_Table002 As List(Of Table002) = New List(Of Table002)
'...
Public RelevantTables_Table999 As List(Of Table999) = New List(Of Table999)

Class Table001
'code for populating RelevantTables_Table001
End Class

Class Table002
'code for populating RelevantTables_Table002
End Class

Class Table999
'code for populating RelevantTables_Table999
End Class

现在我需要阅读相关列表，具体取决于列表框中选择的项目。例如，如果有人选择Table042，我需要阅读列表RelevantTables_Table042中的项目。

我正在尝试使用DirectCast，但我无法弄清楚如何做到这一点。

Answer 1

制作列表列表，然后使用下标访问正确的列表，例如

Public RelevantTables As List(Of List(Of table)) 

For Each item in RelevantTables(42)

Answer 2

类别：

Public Class Table
  Public Tablename As String
  Public Collection As New List(Of String)
  Public Overrides Function ToString() As String
    Return Me.TableName
  End Function
End Class

创建新列表：

Private RelevantTable_Table001 As New Table
RelevantTable_Table001.Tablename = "Table001"
RelevantTable_Table001.Collection.Add("stuff")
...
'add the class and it will display the TableName since we 
'overrided the ToString function 
lsb.Items.Add(RelevantTable_Table001)
'class objects can be stored in the listbox as an object

从SelectedItem属性中获取List对象。

Private Sub lsb_SelectedIndexChanged(sender As Object, e As EventArgs)
  Dim tableList = TryCast(DirectCast(sender, ListBox).SelectedItem, Table)
  If tableList IsNot Nothing Then
    'tableList is the reference to the table object you seek.
  End If
End Sub

要制作多个对象（DGV中的列）的列表，请使用自定义类：

Public Class MyCustomClass
  Public Property Prop1 As String
  Public Property Prop2 As String
  Public Property Prop3 As String
End Class

然后您的Table.Collection将是List(Of MyCustomClass)而不是字符串，这将为每个收集项目提供3个项目 - 这是一个表格。这符合您的需求吗？

使用directcast来调用列表

2 个答案: