Re: Combobox not Updating

JamesLaker — Tue, 10 Jul 2007 11:43:43 GMT

Forgot to set up the External Datasource properties :-o

Combobox not Updating

JamesLaker — Tue, 10 Jul 2007 09:45:36 GMT

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

Newbie Questions

Re: Combobox not Updating

Combobox not Updating