Alimentazione dei valori una tendina di una ComboBox aggiunta su una maschera ASPX

 

' Il seguente snippet può essere utilizzato per alimentare la tendina di un oggetto ComboBox aggiunto su una maschera ASPX.
' Il seguente snippet va inserito nell'evento di creazione dell'oggetto.
' L'esempio si riferisce al form GEMANOCO2.ASPX. 

Dim form As gemanoco2 = this.page
Dim q as QWTable
dim myDBArray as New DBArray
Dim c as QWWebControls.QWWebCombo = CType(this.page, QWWebControls.QWWebPage).FindControl2("CUSTOM_1")
c.ToolTip = "Fasi di lavorazione"
                                               
'// Legge il codice delle fasi di lavorazione  in CAUSPAR 
q = new QWTable()
q.database = form.form_state.dmd_ref.DB
q.sql = "select CODICE, DESCRIZION from CAUSPAR where CODICE like 'FALAV%' and CODICE <> 'FALAV' "
q.requestlive = false
q.active = true
q.rowset.first()
                               
Do while not q.rowset.endofset
   If Not empty(q.rowset.fields(1).value) and not empty(q.rowset.fields(2).value)  then
      c.Addvalue(q.rowset.fields(1).value,q.rowset.fields(2).value)
   End if
   q.rowset.next()
Loop
q.active = false
q.dispose()

if NOT form.isPostback()
form.refreshcontrols()
end if
                               
' Ridefinisce l'handler dell'evento valuechanged della combobox
' Questa parte di codice va inserita solamente se si vuole gestire l’evento ValueChanged

AddHandler c.ValueChanged,
     Sub(sender As Object, e As Infragistics.Web.UI.ListControls.DropDownValueChangedEventArgs)                              
        ' Inserire qui l'azione da eseguire al cambiamento del valore 
     End Sub