Luca ha scritto:
Via codice faccio una Insert, l' operazione va a buon fine, se vado a
vedere direttamente nella tabella trovo l' inserimento del record,
pero', pero' se da codice riempio una Listbox con i risultati di una
query di selezione il nuovo record non viene elencato, devo chiudere il
Documento-Formulario e riaprirlo allora la query che riempie la ListBox
mi elenca il nuovo record.
La domanda:
La query di selezione che faccio via codice seleziona i record presenti
nella tabella o li pesca da una zona temporanea che contiene i dati e
quindi in qualche modo deve essere aggiornata ?.
Metto un esempio per essere meglio compreso
http://quickbase.altervista.org/temp/Abete.odb
Se ad esempio immettete nel primo livello un nuovo elemento la query
associata alla ListBox non la elenca, capisco che devo aggiornare
qualcosa per ottenere la lista con il nuovo Item ma non saprei cosa e
come, serve un aiuto.
Cordiali saluti Luca
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Metodo brutale ma efficace:
Sub aggiorna
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "SwitchControlDesignMode"
args1(0).Value = true
dispatcher.executeDispatch(document, ".uno:SwitchControlDesignMode", "",
0, args1())
rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "SwitchControlDesignMode"
args2(0).Value = false
dispatcher.executeDispatch(document, ".uno:SwitchControlDesignMode", "",
0, args2())
end sub
Ciao
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
