Re: [fr-users] [Base] macro pour ajouter un champ dans un rapport.

Une idée pour ajouter un simple champ formaté à un rapport Base avec une macro?
La méthode add marche bien avec un champ cloné mais je n'arrive pas à l'utiliser pour en _créer_ un 
directement.Je ne suis peut-être pas très loin du résultat que je veux obtenir car je n'ai pas 
d'erreur mais comme dit dans mon précédent  message, aucun nouveau champ n'apparaît dans mon 
rapport avec ce code.C'est un mystère bien mystérieux.
Je vous remercie encore pour votre aide. 

     Le Dimanche 18 janvier 2015 17h40, Felix LeChat <felix_le_chat_2015@yahoo.fr> a écrit :
   

 Bonjour,Avec libreoffice 4.3.3.2, je cherche désespérément à ajouter un champ formaté à un rapport 
fait avec report builder.
J'arrive à cloner un champ puis à modifier ses propriétés mais je n'arrive pas à ajouter 
directement un champ formaté avec basic  dans mon raport.
Voici ce qui marche (j'ai un nouveau champ toto dans mon rapport) :dim oConnection as object
dim aProp(2) as new com.sun.star.beans.PropertyValue
dim oReportsDocuments as object
dim oReportDesign as object
oConnection = ThisDatabaseDocument.DataSource.getconnection("","")
aProp(0).Name = "ActiveConnection"
aProp(0).Value = oConnection
aProp(1).Name = "Hidden"
aProp(1).Value = true
aProp(2).Name = "OpenMode"
aProp(2).Value = "openDesign"
oReportsDocuments = ThisDatabaseDocument.ReportDocuments
'Open report in design mode and hidden
oReportDesign = oReportsDocuments.loadComponentFromURL("Rapport1", "", 0, aProp())
REM ###############################
oField = oReportDesign.Detail.getbyindex(1).createclone
oField.name="toto"REM ###############################
oReportDesign.detail.add(oField)
aProp(1).Value = false
aProp(2).Value = "open"
' Now the result of the report wil be showed. and the hidden report in design mode is closed
oReportsDocuments.loadComponentFromURL("Rapport1_Artistes-Albums-Pistes", "", 23, aProp())

maintenant si je créé le champ toto en remplaçant les deux lignes entre commentaires par :
oField = createUnoService("com.sun.star.comp.report.OFormattedField")
with oField
    .name = "toto"
    .datafield = "field:[Format]"
    .positionX = 14000
    .positionY = 0
    .width = 2000
    .height = 500
end with
oReportDesign.detail.add(oField)
je n'obtiens pas de message d'erreur mais je n'ai pas de nouveau champ toto dans mon rapport.Est-ce 
que j'oublie une propriété?Comment procéder?
Merci encore pour votre aide.

-- 
Envoyez un mail à users+unsubscribe@fr.libreoffice.org pour savoir comment vous désinscrire
Les archives de la liste sont disponibles à http://listarchives.libreoffice.org/fr/users/
Tous les messages envoyés sur cette liste seront archivés publiquement et ne pourront pas être 
supprimés


   
-- 
Envoyez un mail à users+unsubscribe@fr.libreoffice.org pour savoir comment vous désinscrire
Les archives de la liste sont disponibles à http://listarchives.libreoffice.org/fr/users/
Tous les messages envoyés sur cette liste seront archivés publiquement et ne pourront pas être 
supprimés