vb.net - データテーブルの最後の行のみをリストのすべてのインデックスに更新する. データテーブルをリストに変換する必要があります

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)