34

DataTable列の1つに一意の値が含まれている単純なものがあります。例えば：

ColumnName1   ColumnName2
value1        35
value2        44
value3        10

値1、2、および3は常に互いに異なることがわかっているので、ColumnName2とColumnName1の値の1つのみを使用してこのテーブルの値を取得したいと思います。たとえば、次のようになります。

searchedValue = DataTable.Rows("value3").Item("ColumnName2) 
'result would be 10

次の例を試しましたが失敗しました。

4

4 に答える 4

62 
Dim rows() AS DataRow = DataTable.Select("ColumnName1 = 'value3'")
If rows.Count > 0 Then
     searchedValue = rows(0).Item("ColumnName2") 
End If

とFirstOrDefault：

Dim row AS DataRow = DataTable.Select("ColumnName1 = 'value3'").FirstOrDefault()
If Not row Is Nothing Then
     searchedValue = row.Item("ColumnName2") 
End If

C＃の場合：

var row = DataTable.Select("ColumnName1 = 'value3'").FirstOrDefault();
if (row != null)
     searchedValue = row["ColumnName2"];
于 2012-09-12T11:17:13.770 に答える
2 
'Create a class to hold the pair...

        Public Class ColumnValue
            Public ColumnName As String
            Public ColumnValue As New Object
        End Class

    'Build the pair...

        For Each row In [YourDataTable].Rows

              For Each item As DataColumn In row.Table.Columns
                Dim rowValue As New ColumnValue
                rowValue.ColumnName = item.Caption
                rowValue.ColumnValue = row.item(item.Ordinal)
                RowValues.Add(rowValue)
                rowValue = Nothing
              Next

        ' Now you can grab the value by the column name...

        Dim results = (From p In RowValues Where p.ColumnName = "MyColumn" Select  p.ColumnValue).FirstOrDefault    

        Next
于 2014-01-22T20:29:52.323 に答える
-1 
For i = 0 To dt.Rows.Count - 1

    ListV.Items.Add(dt.Rows(i).Item("STU_NUMBER").ToString)
    ListV.Items(i).SubItems.Add(dt.Rows(i).Item("FNAME").ToString & " " & dt.Rows(i).Item("MI").ToString & ". " & dt.Rows(i).Item("LNAME").ToString)
    ListV.Items(i).SubItems.Add(dt.Rows(i).Item("SEX").ToString)

Next
于 2020-09-06T06:04:47.710 に答える
-4

試す：

DataTable.Rows[RowNo].ItemArray[columnIndex].ToString()

（これはC＃コードです。これをVB相当に変更してください）

于 2012-09-12T11:22:44.640 に答える