vb.net - 仅将数据表的最后一行更新到 List 的所有索引. 需要将数据表转换为列表

Question

  Dim dt As DataTable = catheter.FetchCatheter()
    Dim ct As New EntityObjects.CatheterTypeBO
    Dim cList As New List(Of EntityObjects.CatheterTypeBO)
    For i As Integer = 0 To dt.Rows.Count - 1
        ct.ID = dt.Rows(i)("ID")
        ct.Type = dt.Rows(i)("CTYPE")
        ct.Active = dt.Rows(i)("ACTIVE").ToString()
        cList.Add(ct)
    Next

通过 dt 的最后一行更新 cList 的所有索引。需要将数据表转换为列表

Answer 1

尝试使用AsEnumerable然后Last()像：

Dim dt As DataTable = catheter.FetchCatheter()
Dim ct As New EntityObjects.CatheterTypeBO
Dim cList As New List(Of EntityObjects.CatheterTypeBO)
Dim dr as DataRow = dt.AsEnumerable().Last()

ct.ID = dr("ID")
ct.Type = dr("CTYPE")
ct.Active = dr("ACTIVE").ToString()
cList.Add(ct)