CLOSE DATABASES 
OPEN DATABASE (HOME(2)) + "Northwind\northwind.dbc"

* Create XML
SELECT 0
USE northwind!OrderDetails 
SET ORDER TO ORDERID   && ORDERID
SELECT 0
USE northwind!Orders 
SET RELATION TO OrderID INTO OrderDetails
oXA = CREATEOBJECT("XmlAdapter")
oXA.RespectNesting = .T.
oXA.AddTableSchema("Orders")
oXA.AddTableSchema("OrderDetails")
oXA.ToXML("Orders.xml",,.T.)
***Modify Command Orders.xml 

CLOSE DATABASES ALL

* Load XML
oXA = CREATEOBJECT("XmlAdapter")
oXA.LoadXML("Orders.xml",.T.)
FOR i=1 TO oXA.Tables.Count
	oXA.Tables(i).Tocursor()
ENDFOR
SET