1

TableAdapterを反復処理し、ClassNameという特定の列からTableAdapterの各行の値を引き出すことを検討しています。後で列を追加します。

DataSetデザイナを使用して以下を作成しました。

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

でもアングルブレーキの代わりに何を置けばいいのかわからない（<>）

4

1 に答える 1

2 
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
于 2013-09-02T07:06:16.230 に答える