Code: Select all
'FILL SOTTO COMBOBOX
If CNAME = "CESERCIZIO" Then
Me.CINIZIO0.AddItem ELEMENT
Me.CFINE0.AddItem ELEMENT
End If
If CNAME = "CREVISIONE" Then
Me.CINIZIO1.AddItem ELEMENT
Me.CFINE1.AddItem ELEMENT
End If
If CNAME = "CCOLLAUDO" Then
Me.CINIZIO2.AddItem ELEMENT
Me.CFINE2.AddItem ELEMENT
End If
If CNAME = "CSCADEST" Then
Me.CINIZIO3.AddItem ELEMENT
Me.CFINE3.AddItem ELEMENT
End If
If CNAME = "CDATAINTERVENTO" Then
Me.CINIZIO4.AddItem ELEMENT
Me.CFINE4.AddItem ELEMENT
End If
If CNAME = "CANNOCOSTR" Then
Me.CINIZIO5.AddItem ELEMENT
Me.CFINE5.AddItem ELEMENT
End If
'FILL SOTTO COMBOBOX