Sure. You've to set IsAttribute=.T. for the fields you want to convert to attributes

oXA = CREATEOBJECT("XmlAdapter")
oXA.AddTableSchema(lcAlias)
* Mark all fields as attributes
oFields = oXA.Tables(1).Fields
FOR i=1 TO oFields.Count
	oFields(i).IsAttribute = .T.
ENDFOR
oXA.ToXML("lcXml")

>
>I can't seem to find a way for a xmladpater to format the output into attributes. Similar to option "2" which is the third parameter using cursortoxml(). Is that possible?
>