Why doesn't the Combobox want to update? The First Combobox updates fine in the onload function but the second dropdown does not?
....
Private Sub InternalStartup(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Startup
AddHandler EventManager.XmlEvents("/dfs:myFields/dfs:dataFields/d:Judging/@AwardID").Changed, AddressOf Judging_AwardID_attr_Changed
AddHandler EventManager.FormEvents.Loading, AddressOf FormEvents_Loading
End Sub
Public Sub Judging_AwardID_attr_Changed(ByVal sender As Object, ByVal e As XmlEventArgs)
Dim rootNavigator As XPathNavigator = Me.MainDataSource.CreateNavigator()
Dim cboAwards As XPathNavigator = rootNavigator.SelectSingleNode("/dfs:myFields/dfs:dataFields/d:Judging/@AwardID", Me.NamespaceManager)
Dim myADOConnection As AdoQueryConnection = DirectCast(Me.DataConnections("Partners"), AdoQueryConnection)
myADOConnection.Command = "SELECT O.OrgID, O.OrgName FROM Organisations O " & _
"INNER JOIN AwardAnswers AA ON AA.OrgId = O.OrgId " & _
"WHERE AA.AwardId = " & cboAwards.ValueAsInt & ""
myADOConnection.Execute()
End Sub
Public Sub FormEvents_Loading(ByVal sender As Object, ByVal e As LoadingEventArgs)
Dim strUserName As String = System.Environment.UserName
fillAwardsCombo(strUserName)
End Sub
Public Sub fillAwardsCombo(ByVal strAlias As String)
'Instantiate a variable to access the specified data source
' from the DataSourceCollection of the form.
Dim myADOConnection As AdoQueryConnection = DirectCast(Me.DataConnections("Awards"), AdoQueryConnection)
myADOConnection.Command = " SELECT A.AwardID,A.AwardName FROM Judge J " & _
"INNER JOIN JudgeLink JL ON JL.JudgeID = J.JudgeId " & _
"INNER JOIN Awards A On JL.AwardId = A.AwardId " & _
"WHERE Alias = '" & strAlias & "'"
myADOConnection.Execute()
End Sub
NOTE! I'm using Infopath 2007 and VB.NET With MVSTA