DataSet - Strutture

tbDsName.Text = ds.DataSetName.ToString()

Dim dt As DataTable
lbDataTables.Items.Clear()
For Each dt In ds.Tables
lbDataTables.Items.Add(dt.TableName)
Next
If lbDataTables.Items.Count = 0 Then
lbDataTables.Items.Add("<none>")
End If

Dim dr As DataRelation
lbDataRelations.Items.Clear()
For Each dr In ds.Relations
lbDataRelations.Items.Add(dr.RelationName)
Next
If lbDataRelations.Items.Count = 0 Then
lbDataRelations.Items.Add("<none>")
End If