Найти и получить индекс строки в DataTable

Question

DataTable.Select проблемы

У меня есть простой DataTable как этот

| 1 | 2 | 3 | 
|------|------|------| 
| 1966 | 6544 | 1967 | 
| 9560 | 3339 | 4968 | 
| 0 | 9400 | 1765 | 
| 0 | 5479 | 6701 | 

, например, я хочу, чтобы проверить, если 1966 уже существует в колонке «1», и если он существует получить индекс строки я сделать подобный код

Dim search() As DataRow = table.Select(" '" & i & "' = '" & value & "' ") 
    'where i is a integer from 1 to 3 and value is a biginteger 
    If search.Count > 0 Then 
     'get row index 
    Else 
     Console.WriteLine("not found") 
    End If 

Answer 1

Если индекс строк не содержится в значениях самих строк, вам придется отказаться от метода Select и использовать подход, основанный на курсорах. Этот пример остановит цикл, если совпадение найдено:

Dim intTargetIndex As Integer = -1 
Dim intCursor As Integer = 0 

Do Until intCursor = table.Rows.Count OrElse intTargetIndex > -1 

    If table.Rows(intCursor)(0).ToString() = value.ToString() Then 

     intTargetIndex = intCursor 

    End If 

    intCursor += 1 

Loop 

Answer 2

Вашего запросу в настоящее время пытается запросить номер поля в виде строк, поэтому, если DataTable столбцов вы запрашивающие действительно ИНТ egers, то правильным синтаксисом будет:

Имена и номера столбцов не имеют одинарных кавычек вокруг них. Затем, чтобы получить индекс, вам нужно будет искать таблицу для индекса строки, которую вы вернули. DataRowCollections есть способ сделать это, вам просто нужно перебирать возвращения в запросе:

For Each dr As DataRow In table.Select(i.ToString & " = " & value.ToString) 
    MsgBox(dr.Table.Rows.IndexOf(dr).ToString) 
Next dr 

Answer 3

Используя существующую петлю, просто найдите строку в таблице:

Dim ndx As Int32 
Dim rows = dtSample.Select("Id = 42") 
If rows.Count > 0 Then 
    ndx = dtSample.Rows.IndexOf(rows(0)) 
End If 
Return ndx 

Использование методов расширения, вам может конденсироваться его:

Dim ndx = dtSample.AsEnumerable(). 
       Where(Function(q) q.Field(Of Int32)("Id") = 42). 
       Select(Function(z) dtSample.Rows.IndexOf(z)). 
       ToArray() 

ndx будет массив в этом случае и будет пустым, когда нет матча.