dim ss as new notessession
dim doc as notesdocment
dim db as notesdatabase
'dim docs as notesdocmentCollection
dim vw as notesview
set db=ss.currentdatabase
set vw=db.getView("vw1")
set doc=vw.getFirstCocument
while not (doc is nothing)
doc.grade=doc.grade+1
Call doc.save(true,true)
set doc=vw.getnextDocument
loop