Arrays of Arrays are not supported

[Jerome Capodano]

Bonjour, je n'arrive plus à faire une chose assez simple
Quelle est la syntaxe à utiliser pour créer/mettre à jour un champ avec un tableau de plusieurs valeurs

A partir d'un formulaire, je veux aller rechercher tous les valideur d'un accès partagé via la vue sd


Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc=ws.CurrentDocument
Dim docbe As notesdocument ' doc en back end
Set docbe=uidoc.Document
Dim disques As Variant
disques=docbe.GetItemValue("dpdemandes")
Dim s As New NotesSession
Dim db As NotesDatabase
Set db = s.CurrentDatabase
Dim vuerecherche As NotesView
Set vuerecherche=db.GetView("sd") ' Shared Drive
Dim docatrouver As notesdocument
' Dim personnes As notesitem
Dim Personnes ()
indice=0 ' indice du tableau des valideurs
Redim personnes(Ubound(disques))
Forall unite In disques
' Aller récupérer le valideur de access partagé
Set docatrouver=vuerecherche.GetDocumentByKey(unite)
If Not docatrouver Is Nothing Then
' docbe.Personnes.Values(indice)=docatrouver.valideur
' Call Personnes.AppendToTexList(docatrouver.valideur)
Personnes(Indice)=docatrouver.valideur
indice=indice+1
' docbe.valideur(indice)=docatrouver.valideur
End If

End Forall
' L'ensemble des disques a été exploré
'*** Mettre à jour le champ Valideurs
Dim itm1 As NotesItem
' Set itm1= docbe.Replaceitemvalue("Valideurs",Arrayunique(Personnes))
Set itm1= docbe.Replaceitemvalue("Valideurs",Personnes)
' Set itm1= docbe.Replaceitemvalue("Personnes",Personnes)
docbe.Valideurs=Personnes
' docbe.Valideurs(0)=Personnes(0)
' Call docbe.CopyItem(Personnes,"Valideurs")
' docbe.Valideurs.Values=Personnes

J'essaye diverses variantes mais je n'arrive pas à mettre le contenu du tableau Personnes dans le champ Valideurs de mon document docbe

Je ne comprends pas pourquoi l'expression suivante
Set itm1= docbe.Replaceitemvalue("Valideurs",Arrayunique(Personnes))

ne fonctionne pas. C'est là ou j'ai un plantage a l'execution
J'ai ce message que le champ Valideurs existe ou non dans le formulaire

[roubech]

à 1ère vue comme ça, à partir de ton message d'erreur, je dirais qu'il faut remplacer
Personnes(Indice)=docatrouver.valideur
par
Personnes(Indice)=docatrouver.valideur(0)
si ton champ valideur est bien monovalué, sinon, faudra le parcourir

[LSong]

c'est bien ca tu as instancier un tableau de variant (c'est mal si tu as besoin d'un tableau de string mette un tableau de string)

et tu y mette des array
Personnes(Indice)=docatrouver.valideur

un champs dans lotus est forcement multivalué en script (comprendre dans un tableau)


du coup tu mette des tableaux dans un variant