Sub ComboClick oControl = oDlg.getControl("ComboBox1") s = oControl.text oControl = oDlg.getControl("ComboBox2")
If s = cat(0) Then subcat=Array("Title","Subject")
ElseIf s = cat(1) Then
subcat=Array("Creator","Publisher")
ElseIf s = cat(2) then
subcat=Array("Date","Format","Identifier")
End If
oControl.addItems(subcat, 0) end sub
Mi rispondo da solo, ma se qualcuno ha soluzioni pi� eleganti...
Ho aggiunto, prima della quinta riga:
for each it in subcat
oControl.removeitems(0,1)
next
Ciao, -- MC
--------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
