/
aprogrammer
/
dotnet-docs
Обзор
Документация
Войти
/
aprogrammer
/
dotnet-docs
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
main
samples/snippets/visualbasic/VS_Snippets_ADO.NET/DataWorks Data.DataTableRelation/VB/source.vb
30 строк
820 B
Andy De George
Move snippets from samples repo to this repo (#17296)
03 мар 2020, 19:23
Не верифицирован
03 мар 2020, 19:23
dbbeda1
Код
Авторство
О чём код?
Option Explicit On Option Strict On Imports System.Data Module Module1 Sub Main() Dim customerOrders As New DataSet() ' <Snippet1> Dim customerOrdersRelation As DataRelation = _ customerOrders.Relations.Add("CustOrders", _ customerOrders.Tables("Customers").Columns("CustomerID"), _ customerOrders.Tables("Orders").Columns("CustomerID")) Dim custRow, orderRow As DataRow For Each custRow In customerOrders.Tables("Customers").Rows Console.WriteLine("Customer ID:" & custRow("CustomerID").ToString()) For Each orderRow In custRow.GetChildRows(customerOrdersRelation) Console.WriteLine(orderRow("OrderID").ToString()) Next Next ' </Snippet1> End Sub End Module