R
RickH
In the first section, after a choice is made from a dropdown list box(pop by
a 2ndary data src), a second field is populated, based on the val sel in the
listbox and another val in the 2ndary data src. This works fine in the first
section.
I insert another section. Then choose a val in the drop down list box. The
second field isn't changed....it's like the OnAfter Change event didn't fire.
<InfoPathEventHandler(MatchPath:="/my:Manifest/my:Manifest_Offload_Item_Information/my:ItemId", EventType:=InfoPathEventType.OnAfterChange)> _
Public Sub ItemId_OnAfterChange(ByVal e As DataDOMEvent)
If (e.IsUndoRedo) then
' An undo or redo operation has occurred and the DOM is read-only.
Return
End If
Dim myWSIDNumber As IXMLDOMNode
myWSIDNumber = thisXDocument.DOM.selectSingleNode _
("/my:Manifest/my:Manifest_Offload_Item_Information/my:WSIDNumber")
Dim myItemID As IXMLDOMNode
myItemID = thisXDocument.DOM.selectSingleNode _
("/my:Manifest/my:Manifest_Offload_Item_Information/my:ItemId")
Dim XMLMatTracData As IXMLDOMDocument
XMLMatTracData = thisXDocument.GetDOM("MatTracData")
Dim xmlNodeA As IXMLDOMNode
Dim xmlNodeListA, xmlNodelistB As IXMLDOMNodeList
xmlNodeListA =
XMLMatTracData.selectNodes("/XtractTables/IdentificationList/*")
xmlNodeA = Nothing
xmlNodeA = xmlNodeListA.nextNode()
If myWSIDNumber.text = "" Then Exit Sub
While Not xmlNodeA Is Nothing 'walk XMLMatTracData
If xmlNodeA.attributes.getNamedItem("ItemID").text =
myItemID.text Then
myWSIDNumber.text =
xmlNodeA.attributes.getNamedItem("WSIDNumber").text
Exit While
End If
xmlNodeA = xmlNodeListA.nextNode()
End While
End Sub
a 2ndary data src), a second field is populated, based on the val sel in the
listbox and another val in the 2ndary data src. This works fine in the first
section.
I insert another section. Then choose a val in the drop down list box. The
second field isn't changed....it's like the OnAfter Change event didn't fire.
<InfoPathEventHandler(MatchPath:="/my:Manifest/my:Manifest_Offload_Item_Information/my:ItemId", EventType:=InfoPathEventType.OnAfterChange)> _
Public Sub ItemId_OnAfterChange(ByVal e As DataDOMEvent)
If (e.IsUndoRedo) then
' An undo or redo operation has occurred and the DOM is read-only.
Return
End If
Dim myWSIDNumber As IXMLDOMNode
myWSIDNumber = thisXDocument.DOM.selectSingleNode _
("/my:Manifest/my:Manifest_Offload_Item_Information/my:WSIDNumber")
Dim myItemID As IXMLDOMNode
myItemID = thisXDocument.DOM.selectSingleNode _
("/my:Manifest/my:Manifest_Offload_Item_Information/my:ItemId")
Dim XMLMatTracData As IXMLDOMDocument
XMLMatTracData = thisXDocument.GetDOM("MatTracData")
Dim xmlNodeA As IXMLDOMNode
Dim xmlNodeListA, xmlNodelistB As IXMLDOMNodeList
xmlNodeListA =
XMLMatTracData.selectNodes("/XtractTables/IdentificationList/*")
xmlNodeA = Nothing
xmlNodeA = xmlNodeListA.nextNode()
If myWSIDNumber.text = "" Then Exit Sub
While Not xmlNodeA Is Nothing 'walk XMLMatTracData
If xmlNodeA.attributes.getNamedItem("ItemID").text =
myItemID.text Then
myWSIDNumber.text =
xmlNodeA.attributes.getNamedItem("WSIDNumber").text
Exit While
End If
xmlNodeA = xmlNodeListA.nextNode()
End While
End Sub