在TableAdapter中迭代(循环)

Question

我们希望遍历TableAdapter，并从名为ClassName的特定列中提取TableAdapter中每一行的值。我们将在稍后添加更多列。

我们使用DataSet designer创建了以下内容：

DataSet Name:      DataSetSchedules
DataTable Name:    DataTableSchedules
TableAdapter Name: DataTableDataAdapterSchedules

TableAdapter的设置如下：

Dim theTableAdapter As New DataSetSchedulesTableAdapters.DataTableTableAdapterSchedules

最初是这样填充的：

Private Sub TeacherSchedules_Init(sender As Object, e As EventArgs) Handles Me.Init

    ' Load the data from the database into the GridView.
    '---------------------------------------------------
    GridViewSummary.DataSource = theTableAdapter.GetDataByAll(TextBoxSearch.Text)
    GridViewSummary.DataBind()

End Sub

我们希望利用已经创建的TableAdapter，这就是为什么我们只想循环遍历TableAdapter的原因。

我们将使用它来创建一个列表，该列表将作为电子邮件消息的一部分显示。

您能告诉我需要什么代码来填充和循环从ClassName数据列中提取值的现有TableAdapter吗？

我认为应该是这样的：

    Dim strClassName As String = ""
    Dim objAadapter As New DataSetSchedulesTableAdapters.DataTableTableAdapterSchedules
    Dim objDataTable As <What to I put here?> = objAadapter.GetDataByAll(TextBoxSearch)

    For Each row As <What to I put here?> In objDataTable
        strClassName = row.ClassName
    Next

但我不知道该用什么来代替这些小把戏(<>)

Answer 1

Friend Function ValidateUserCode(ByVal ScannedUserCode) As Boolean
    Try
        Dim taOperator As New dsBusinessTableAdapters.GetOperatorTableAdapter, isUpdated As Boolean = True
        If taOperator.GetData().Count <> My.Settings.Zero Then
            For Each dr As DataRow In taOperator.GetData()
                Dim dbUserCode As String = dr.Item(1).ToString 'pass usercode index to readable variable
                If ScannedUserCode = dbUserCode Then ' UserCode EXISTS in database?
                    If GetOperatorDetails(dr) = isUpdated Then Return True 'YES,Get their Details and lets go!
                End If
            Next
            Return False
        Else : Return False 'for now...'show ADD NEW OPERATOR FORM? 'or have a default Admin Operator...
        End If
    Catch ex As Exception
        Return False
    End Try
End Function