This post seems to have what I am trying to do - http://www.bizsupportonline.net/infopath2007/programmatically-select-all-items-multi-select-list-box.htm
But, I cannot make it work with my external data source.
Data source called - kits_docs
Entries - /dfs:myFields/dfs:dataFields/d:SharePointListItem_RW
Value - d:val4kitID
Display - d:val4kitID
I can't seem to map my fields to Sym's.
FIGURED IT OUT AS SHOWN BELOW:
On-Click:
Dim kits As XPathNodeIterator = DataSources("kits_docs").CreateNavigator().Select( _
"//d:SharePointListItem_RW", NamespaceManager)
Dim kit As XPathNavigator
For Each kit In kits
Dim number As String = kit.SelectSingleNode("d:val4kitID", NamespaceManager).Value
AddItem(number)
Next
Public Sub:
Public Sub AddItem(ByVal itemId As String)
Dim DOM As XPathNavigator = MainDataSource.CreateNavigator()
Dim group2 As XPathNavigator = DOM.SelectSingleNode("//my:group2", NamespaceManager)
Dim KitList As XPathNavigator = DOM.SelectSingleNode("//my:group2/my:KitList", NamespaceManager)
Dim newNode As XPathNavigator = KitList.Clone()
newNode.SetValue(itemId)
group2.AppendChild(newNode)
End Sub
Jeffrey J Vojtko