vb.net datatable按特定列名循環遍歷行

Question

嗨，我試圖只在特定列中循環行。 但是我沒有成功，任何人都可以幫助我。 這是我的代碼，myXvalue =“CPI”是列標題Name。

Dim myXvalue = "CPI"

 For Each column As DataColumn In dt.Columns


                If column.ColumnName = myXvalue Then

                    For k As Integer = 0 To dt.Rows(myXvalue).Count - 1

                        Console.WriteLine(myXvalue & " === " & dt.Rows(0)(k).ToString)


                    Next

                    Console.ReadKey(True)


                End If

Answer 1

一種。 在visual basic.net中，更好的做法是定義字段或類型的類型。
使用Dim myXvalue As String = "CPI"而不是Dim myXvalue = "CPI" 。
如果你熟悉c＃，這個約定與c＃中的var不完全相同：
VB的Dim和C＃的var一樣嗎？

灣 下面的代碼是實現您所需要的一種方式。

Private Sub Func()
    Dim myXvalue As String = "CPI"
    Dim colIndex As Integer = -1

    For i As Integer = 0 To dt.Columns.Count - 1
        If dt.Columns(i).ColumnName = myXvalue Then
            colIndex = i
            Exit For
        End If
    Next

    If colIndex = -1 Then
        ' only for safty if this column name is not exist
        Exit Sub
    End If

    For i As Integer = 0 To dt.Rows.Count - 1
        Console.WriteLine((myXvalue & "===" & dt.Rows(i).Item(colIndex).ToString()))
    Next

    Console.ReadKey(True)
End Sub

Answer 2

這應該可以解決問題。

Dim dt As New DataTable()
For Each dr As DataRow In dt.Rows
    If dr.Item("myColumnHeaderName").ToString = "certainColumnValue" Then
        Console.WriteLine(dr.Item("myColumn").ToString())
    End If
Next

Answer 3

通過這個，您可以從一列獲得所有項目的列表

Dim col_allitems as string = myData.Rows.Cast(Of DataRow).Select(Function(row) row.Item(1).ToString)