Creare un dataset con la struttura di un oggetto...

[Nosophoros]

Ho un oggetto, restituito da un WebService, con una struttura un po' particolare, nel senso che contiene alcune proprieta' semplici come stringe, valori numerici e booleani, ecc, ma anche altri oggetti "figli" ciascuno con delle proprie proprieta' semplici o oggetti figli.

Per esempio, una struttura di questo tipo

Customer (oggetto principale) 
    |__FirstName 	(semplice stringa)
    |__LastName		(semplice stringa)
    |__Address 		(oggetto)
    |	|
    |  	|__AddressLine1 (semplice stringa)
    |	|__AddressLine2 (semplice stringa)
    |	|__Town		(semplice stringa)
    |	|__Country	(semplice stringa)
    |	|__Zip		(semplice stringa)
    |
    |__Phone
	|
	|__DayPhone	
	|	|
	|	|__AAA	(semplice stringa)
	|	|__BBB	(semplice stringa)
	|	|__CCC	(semplice stringa)
	|
	|__NightPhone	
		|
		|__AAA	(semplice stringa)
		|__BBB	(semplice stringa)
		|__CCC	(semplice stringa)

ecc

Avrei bisogno di ottenere in una maniera il piu' automatica possibile (la struttura di quanto restituito dal ws potrebbe cambiare) un DataSet che contenga, internamente, la stessa struttura dell'oggetto restituito dal ws e di tutti gli eventuali oggetti figli, come nell'esempio.
Ottenuto il DataSet, vi faro' aggiungere dinamicamente delle relazioni per poter visualizzare il tutto in una HierarGrid.

Qualche suggerimento?

[edaje]

Potresti creare una serie di datatable relazionate da chiave primaria e chiave esterna e poi metterle nel dataset

[Nosophoros]

Originariamente inviato da edaje
Potresti creare una serie di datatable relazionate da chiave primaria e chiave esterna e poi metterle nel dataset

E' quello che voglio fare, ma non so come enumerare correttamente le proprieta' degli oggetti, in maniera automatica e sicura.

Ho provato con la reflection, con qualcosa del genere:

Dim Properties() As PropertyInfo = obj.GetType.GetProperties
For Each Prop As PropertyInfo In Properties
	With Prop
		Response.Write(.Name & "
")
	End With
Next

dove obj e' il mio oggetto di esempio....esso puo' contenere proprieta' semplici, come dicevo, cioe' del tipo stringa, numero, ecc, ma anche altri oggetti figli. Il problema e' proprio con questi ultimi, che NON mi vengono visualizzati con GetProperties. Come vi accedo?

[Nosophoros]

Risolto, o meglio ho trovato uno spunto e devo svilupparlo per giungere dove voglio arrivare

					Dim OutwardJourneys As Journeys = New Journeys

					For Each Journey As EuroStarConnect.AQJourney In .outwardJourney
						OutwardJourneys.Add(Journey)
					Next


					Dim serializer As XmlSerializer = New XmlSerializer(GetType(Journeys))

					Dim stream As MemoryStream = New MemoryStream
					serializer.Serialize(stream, OutwardJourneys)

					Dim Data As DataSet = New DataSet
					stream.Position = 0
					Data.ReadXml(stream)
					stream.Close()

					With DataGrid1
						.DataSource = Data
						.DataBind()