'** get each DATAFIELD
Dim viewFields As XPathNodeIterator = navigator.Select(viewFieldsPath, resolver)
Dim viewFieldName As String
While viewFields.MoveNext
Dim currentViewField As XPathNavigator = viewFields.Current
viewFieldName = getAttr(currentViewField, "fieldName")
End While
End While

Private Sub updateAttr(xp As XPathNavigator, attr As String, val As String)
If xp.MoveToAttribute(attr, String.Empty) Then
xp.SetValue(val)
Else
xp.CreateAttribute(String.Empty, attr, String.Empty, val)
End If
End Sub