vb.net发现DataSet中的行与列值

我试图找到一排列值的数据集。列是一个boolean类型的数据。

 Dim foundRows() As Data.DataRow

foundRows = dsans.Tables(0).Select("correct_ans = 'true'")

               Dim j As Integer

               Dim iRowIndex As Integer

               For j = 0 To dtans.Rows.Count - 1

                   If dtans.Rows(j).Equals(foundRows) Then

                       iRowIndex = j

                       Exit For

                   End If

               Next

               answer = dtans.Rows(iRowIndex).Item(1)

For j = 0 To dtans.Rows.Count - 1

  If dtans.Rows(j).Equals(foundRows) Then

    iRowIndex = j

    Exit For

  End If

Next