参考:http://www.foxtable.com/mobilehelp/topics/0171.htm
Dim str As String = "<xml><div style='width:100%' ><a>一网</a></div><div style='width:100%' ><a>二网</a></div><div style='width:100%' ><a>三网</a></div></xml>"
Dim xo As Foxtable.XObject = Foxtable.XObject.Parse(str)
Dim ygs As JArray = xo("div")
For n As Integer = 0 To ygs.Count - 1
ygs(n)("a")= n
Next
Output.Show(xo.ToXML)