Question

我是列表的新手，我找不到构建（动态）列表的正确方法。该列表用作Web服务的返回。

我通常使用一个简单的类来构建我的列表，如：

Public Class Book
    Public ID As String
    Public Book As String
    Public Author As String
End Class

Dim dtBooks = New DataTable()
Using da As New SqlDataAdapter("Select * From theBooks", myConn)
    da.Fill(dtBooks)
End Using

Dim Books As List(Of Book) = New List(Of Book)
For Each aBook As DataRow In Books.Rows
    Dim nBook As Book = New Book()
    With nBook
        .ID = aBook("ID")
        .Author = aBook("Author")
        .Book = aBook("Name")
    End With
    Books.Add(nBook)
Next

Return New With {.data = Books, .success = True, .message = "OK"}

在大多数情况下，我知道数据库中列的名称，所以我可以像上面的例子一样使用类，但在某些情况下我不知道数据库中列的名称。

我用dictionaties做了几次测试（Dim strResultList As List（Of Dictionary（Of String，Object））），但它给了我不一样的结果。

有人可以帮助我并让我走上正确的轨道，我可以根据简单查询的结果制作一个列表（如Books），该查询可以用作网络服务的返回值吗？

感谢任何帮助。

提前致谢。

阿诺。

如何构建动态列表

0 个答案: