Domino 9 und frühere Versionen > ND6: Entwicklung

Maximum ermitteln

<< < (2/2)

wuwu:
Hallo,
das ist die Lösung, ich bin heute schon zu lange davor gesitzt!
Danke nochmals für eure Hilfe!!

lngMaxWert = 0
      
      While Not( v_doc Is Nothing )
         
         If v_doc.work_plan_follow_nr( 0 ) > lngMaxWert Then
            lngMaxWert  = v_doc.work_plan_follow_nr( 0 )
         End If
         Set v_doc =dc.GetNextDocument(v_doc)   
      Wend
      
      Msgbox Cstr( lngMaxWert )

Navigation

[0] Themen-Index

[*] Vorherige Sete