Vb.net 通过强类型数据集的TableAdapter进行迭代

我们希望使用For Next循环逐行遍历TableAdapter，并从强类型数据集中提取每行中的一列值

TableAdapter是在Visual Studio数据集设计器中创建的。以下名称已用于数据库对象

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

这是我开始编写的代码：

Dim strClassName As String = ""
Dim objAadapter As New DataSetSchedulesTableAdapters.DataTableTableAdapterSchedules
Dim objDataTable As DataSetSchedulesTableAdapters.DataTableTableAdapterSchedules

<I need a way to fill the table with data from> = objAadapter.GetDataByAll(TextBoxSearch)

For Each row As System.Data.DataRow In objDataTable
    strClassName = row.ClassName
Next

这个错误显示为：

Error 1 Type 'DataTableSchedules' is not defined.

---

我意识到我可以设置命令对象和DataReader，但更喜欢使用已经存在的对象。这个问题已经困扰了我们好几天。

如果您键入DataSetSchedulesTableAdapters.DataTableAdapterSchedules是数据检索部分，那么您还将拥有一个名为DataSetSchedules的类，该类的类结构将保存您检索的数据以及强类型的datatables和datarows

Dim strClassName As String = ""
Dim objAadapter As New Knowledge_Academy.DataSetSchedulesTableAdapters.DataTableTableAdapterSchedules
Dim objDataTable As Knowledge_Academy.DataSetSchedules.DataSetSchedulesDataTable
Dim objDataRow As Knowledge_Academy.DataSetSchedules.DataSetSchedulesRow

objDataTable = objAadapter.GetDataByAll(TextBoxSearch)

For Each objDataRow In objDataTable.Rows
    strClassName = objDataRow.ClassName
Next

---

我有点猜测，但应该很接近。

谢谢Eric。我可以使用：Dim OBJDATABLE As DataSetSchedulesTableAdapters.DATATABLETABLEADAPTERS SCHEDULES ok，我将为此更新发布，但现在我需要一种方法来用数据填充对象，并将缺少的编码放在这一行中：对于OBJDATABLEADING system.data.datarow中的每一行，如OBJDATABATABLEADPLACING system.data中所示此错误是因为我认为我缺少将数据放入其中的方法：错误3表达式的类型为“Knowledge_Academy.DataSetSchedulesTableAdapters.DataTableAdapterSchedules”，它不是集合类型。我更新了编码以包含system.data.datarow。你能展示一下它应该是什么样子的编码示例吗？谢谢。好的，您可以选择Knowledge_Academy.DataSetSchedules.DataSetSchedulesTable或DataSetSchedulesRow。我们使用过这样的东西：Dim items adapter cart As New DAL.ShoppingCartTableAdapters.GetCartPackageCoursesTableAdapter Dim dtadc As New DAL.ShoppingCart.cartims如是说，我想这是来自项目名称。这也是我们用于SQL Server数据库的名称。在项目的其他部分，我们不需要将其作为一个选项。

Dim strClassName As String = ""
Dim objAadapter As New Knowledge_Academy.DataSetSchedulesTableAdapters.DataTableTableAdapterSchedules
Dim objDataTable As Knowledge_Academy.DataSetSchedules.DataSetSchedulesDataTable
Dim objDataRow As Knowledge_Academy.DataSetSchedules.DataSetSchedulesRow

objDataTable = objAadapter.GetDataByAll(TextBoxSearch)

For Each objDataRow In objDataTable.Rows
    strClassName = objDataRow.ClassName
Next