2022年7月19日 星期二

Crear y LLenar DataTable y Transferir Datos a Listview

 參考來源(不錯的網站)

----


Crear y LLenar DataTable y Transferir Datos a Listview

    Public Sub AGREGAR(ByVal Archivo_ As String, ByVal URL_ As String, ByVal Destino_ As String)


        Dim dt As New DataTable()

        dt.Columns.Add("Archivo")

        dt.Columns.Add("URL")

        dt.Columns.Add("Destino")

        Dim row As DataRow = dt.NewRow()

        row("Archivo") = Archivo_

        row("URL") = URL_

        row("Destino") = Destino_

        dt.Rows.Add(row)


        Dim lvItem As ListViewItem

        For y = 0 To dt.Rows.Count - 1

            lvItem = ListView1.Items.Add(dt.Rows(y)(0))

            'FILA DESCRIPCIÓN

            lvItem.SubItems.Add(dt.Rows(y)(1))

            lvItem.SubItems.Add(dt.Rows(y)(2))

        Next

    End Sub

沒有留言:

張貼留言