Question

我一直在努力解决问题大约一个月了，觉得是时候问专业人士了。我有一个小程序从网页上抓取数据。由于这是我弄清楚的唯一方法，因此我将两组不同的数据写入两个单独的文本文件中。我毫不费力地在listview或datagridview组件中显示其中一个文本文件。我能为我的生活找出的是如何在任一组件的第二列中显示第二个文本文件（我没有使用这两个组件，我只是尝试使用它们）。这是我用来显示一个文件的代码：

Dim dt As New DataTable()
    Dim col As New DataColumn("Title")
    Dim col2 As New DataColumn("Price")
    col.DataType = System.Type.[GetType]("System.String")
    dt.Columns.Add(col)
    dt.Columns.Add(col2)

    Dim aa As String() = File.ReadAllLines("C:\Users\John\Documents\Title.txt")
    For Each item In aa
        Dim dr As DataRow = dt.NewRow()
        dr(0) = item.ToString()
        dt.Rows.Add(dr)
    Next
    dataGridView1.DataSource = dt

Answer 1

需要整理，但大致

    Dim dt As New DataTable()
    Dim dr As DataRow
    Dim col As New DataColumn("Title")
    Dim col2 As New DataColumn("Price")
    col.DataType = System.Type.[GetType]("System.String")
    dt.Columns.Add(col)
    dt.Columns.Add(col2)

    Dim aa As String() = File.ReadAllLines("C:\Users\John\Documents\Title.txt")
    For Each item In aa
        dr = dt.NewRow()
        dr(0) = item.ToString()
        dt.Rows.Add(dr)
    Next

    Dim counter As Int32 = 0
    Dim RowCount As Int32 = dt.Rows.Count
    Dim bb As String() = File.ReadAllLines("C:\Users\John\Documents\Title2.txt")
    For Each item2 In bb
        If (counter +1) > RowCount Then
            dr = dt.NewRow()
            dr(1) = item2.ToString()
            dt.Rows.Add(dr)
         Else
            dr = dt.Rows(counter)
                dr(1) = item2.ToString()
                End If
    counter += 1
            Next

dataGridView1.DataSource = dt

将两个文本文件添加到datagridview或listview vb.net中的两列

1 个答案: