Jack ha scritto:
> Jack wrote:
>
> Siccome non ho risolto ripropongo la domanda del primo post.
>
> E' possibile lanciare una Macro che ricarica una Select nel comboBox?.
> Spiego il perche', fatta una scelta nel primo ComboBox nel secondo
> prendo il valore comboPrimo.StringItemList(0) e in base a questo ci
> ricavo una select per popolare il secondo ComboBox, il fatto e' che
> non riesco a passare alla propieta' comboSecondo.ListSource al
> secondo Combobox in modaliata' RunTime (passatemi il termine).
>
> Ciao Jack ( che ha bisogno di ferie)
>
Ciao Jack,
ho passato del tempo anche io sulle ComboBox ... alla fine ho risolto
così un problema simile al tuo:
[cut]
Set sTabApp = ThisComponent.Sheets.getByName("Tabelle App")
cmdSQL = ""
cmdSQL = cmdSQL & "SELECT ......ecc...."
oSQLStat2 = oDSConn.CreateStatement()
oCLIFOSet = oSQLStat2.executeQuery(cmdSQL)
a = 0
a = a + 1
sApp = "Tutti"
sTabApp.getCellByPosition(0,a).setString(sApp)
do while oCLIFOSet.Next
a = a + 1
sApp = ""
sApp = sApp & oCLIFOSet.Columns(0).getString
sTabApp.getCellByPosition(0,a).setString(sApp)
loop
oCellRange = sTabApp.getCellRangeByName("A2:A" & trim(str(a+1)))
initParam(0).Name = "CellRange"
initParam(0).value = oCellRange.RangeAddress
oCellRangeListSource =
ThisComponent.createInstanceWithArguments("com.sun.star.table.CellRangeListSource",
initParam())
sFoglio.DrawPage.getForms.getByIndex(0).getByName("cmbFonte").setListEntrySource(oCellRangeListSource)
[/cut]
spero ti sia chiaro il codice,
in buona sostanza, utilizzo un foglio (nascosto) dove appoggio tutte le
mie tabelle che devono riempiere i miei combo box e sul foglio visibile
all'utente disegno un combo con range collegato ai vari intervalli....
ciao sergio
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
