vb.net 动态类型列表

Question

我正在为我的程序的一部分构建一个 MVC 结构。

我已经完成了 5-10 个表的模型，它们的共同点只是构造函数。 （采用recordset.fields）

这是我填充这些对象的函数：

Public Function reqTable(ByVal pTable As String, ByVal pType As Type, ByVal pNoProjet As Integer, Optional ByVal strAdditionnalConditions As String = "") As List(Of Object)
    Dim lstRetour As List(Of Object) = New List(Of Object)

    rsRequestCSV = conSQL.Execute("SELECT * FROM " & pTable & " WHERE NoProjet = " & pNoProjet & " " & strAdditionnalConditions)
    With rsRequestCSV
        While Not .EOF
            lstRetour.Add(Activator.CreateInstance(pType, New Object() {rsRequestCSV.Fields})) 'New clsTable(rsRequestCSV.Fields))
            .MoveNext()
        End While
    End With
    Return lstRetour
End Function

我无法实现的是返回 List(Of pType) 而不是 List(Of Object)。

我想要这个的原因是在我的 datagridviews 中有标题，即使它们是空的。

那么有没有办法返回 List(Of MyModel'sType) ？

提前致谢！

Answer 1

只需使用As pType 代替As Object（但考虑使用常规类型参数名称，即T 代替pType），删除现在已过时的pType 参数，并使用以下内容创建和添加实例：

Public Function ReqTable(Of T)(ByVal table As String, ByVal noProject As Integer, Optional ByVal additionalConditions As String = "") As List(Of T)
    Dim result As New List(Of T)()

    ' Where is this declared?! It probably should be declared here.
    request = conSQL.Execute( _
        String.Format("SELECT * FROM {0} WHERE NoProjet = {1} {2}", _
                      table, noProjet, additionnalConditions))

    While Not request.EOF
        result.Add( _
            CType(Activator.CreateInstance( _
                    GetType(T), New Object() {request.Fields}), _
                T))
        request.MoveNext()
    End While

    Return result
End Function

GetTpe(T) 为您获取一个表示类型参数的 System.Type 实例。由于 VB 与 Java 不同，具有 reified generic types，因此您可以从类型参数创建实例。

除此之外，请注意 .NET 与 Java 有不同的代码风格约定；例如，所有方法都应该使用 PascalCase，而不是 camelCase。和在 Java 中一样，不鼓励使用匈牙利符号。使用简洁但具有描述性的名称。而且，正如 Rene 所指出的，您的代码存在 SQL 注入漏洞。

Answer 2

忽略 SQL 注入问题，试试这个：

Public Function reqTable(of T)(ByVal pTable As String, ByVal pNoProjet As Integer, Optional ByVal strAdditionnalConditions As String = "") As List(Of T)
    Dim lstRetour As New List(Of T)

    rsRequestCSV = conSQL.Execute("SELECT * FROM " & pTable & " WHERE NoProjet = " & pNoProjet & " " & strAdditionnalConditions)
    With rsRequestCSV
        While Not .EOF
            lstRetour.Add(Activator.CreateInstance(T, New Object() {rsRequestCSV.Fields})) 'New clsTable(rsRequestCSV.Fields))
            .MoveNext()
        End While
    End With
    Return lstRetour
End Function