[Risolto] in Basic valore campo collegato casella riepilogo

Discussioni sulle caratteristiche di database
Rispondi
Nitroale
Messaggi: 19
Iscritto il: domenica 2 ottobre 2016, 8:58
Località: Friuli Venezia-Giulia

[Risolto] in Basic valore campo collegato casella riepilogo

Messaggio da Nitroale »

Salve a tutti!

Vorrei sapere se è possibile ottenere, con un comando BASIC, il valore del Campo Collegato di una Casella di Riepilogo.
Dalle mie ricerche credo che il caso specifico non sia ancora stato trattato (spero di non dovermi ricredere)

Il mio caso e quello di una colonna di un Controllo Tabella impostata come Casella di Riepilogo e così parametrizzata:

-Campo dati
Campo della tabella di destinazione
- Tipo del contenuto della lista:
Sql
- Contenuto elenco:

Codice: Seleziona tutto

SELECT "CodUbi" || ... || ...|| ... , "CodUbi" FROM "TblAnagrUbi"
- Campo collegato:
1
(nella tabella finisce "CodUbi" ma l'utente vede ' "CodUbi" || ... || ...|| ... ' )

In Basic sono arrivato ad ottenere solo il valore che viene mostrato a video in fase di selezione da parte dell'utente e che poi viene selezionato, cioè la concatenazione "CodUbi" || ... || ...|| ... , con il seguente codice ...

Codice: Seleziona tutto

	oFrm = ThisDatabaseDocument.FormDocuments.getByName("FrmSA_W")
	oMainFrm = oFrm.Component.DrawPage.Forms.getByName("MainFrmSA_W")
	oColumn7 = oMainFrm.getByName("RowGrid").getByName("UbiOrig")
	oParam13 = oColumn7.CurrentValue
Ma a me serve il campo "CodUbi" ...
si può fare utilizzando solo i metodi del controllo in questione ?
Ho interrogato Xray ma non ne vengo a capo ...


Grazie !!
Ultima modifica di Nitroale il lunedì 7 novembre 2016, 14:43, modificato 1 volta in totale.
OpenOffice 4.1.2 - Windows 10 Home
Nitroale
Messaggi: 19
Iscritto il: domenica 2 ottobre 2016, 8:58
Località: Friuli Venezia-Giulia

Re: Ottenere in Basic valore campo collegato casella riepilo

Messaggio da Nitroale »

Ho trovato la soluzione sul forum Inglese, riporto il link:

https://forum.openoffice.org/en/forum/v ... 39&t=23862

Il codice corretto invece è:

Codice: Seleziona tutto

   oFrm = ThisDatabaseDocument.FormDocuments.getByName("FrmSA_W")
   oMainFrm = oFrm.Component.DrawPage.Forms.getByName("MainFrmSA_W")
   oColumn7 = oMainFrm.getByName("RowGrid").getByName("UbiOrig")
   oParam13 = oColumn7.ValueItemList(oColumn7.SelectedItems(0))
OpenOffice 4.1.2 - Windows 10 Home
Rispondi