nbre colonnes VUE

Publié:
14 Mai 2003 à 08:43
par rayouyou
quelle est la fonction script sous NOtES V4.6 qui permet de calculer le nombre de colonnes d'une vue?Merci
Re: nbre colonnes VUE

Publié:
15 Mai 2003 à 10:25
par philippeG
Bonjour,à ma connaissance cette fonction n'existe pas en 4.6 la fonction ColumnCount est nouvelle en version 5.Si cela t'interresse voila un mercerau de code qui compte les colonnes d'une vue à adaoter en fonction de ton besoinSub Click(Source As Button) On Error 9 Goto GestionErreur Dim session As New NotesSession Dim dbThis As NotesDataBase Dim vwGAL As NotesView FlagSortie = False Set dbThis = session.CurrentDataBase Set vwGAL = dbThis.GetView("vGal") Dim column As NotesViewColumn Set column = vwGAL.Columns( 0 ) i = 1 Do While Not (column Is Nothing) Set column = vwGAL.Columns( i ) i = i+1 If FlagSortie Then Exit Do Loop Exit Sub GestionErreur: Messagebox "il y a " & Str(i) + " colonnes" FlagSortie = True Resume Next End Sub