However no view data is being returned! If anyone has an idea why my script
does not seem to enter the While loop, I might actually get somewhere!
I used the code given in the example (with Eric's two added lines) & I'm
running Notes 5.0:
Dim sess As New NotesSession
Dim db As NotesDatabase
Dim qs As NotesView
Dim nv As NotesViewNavigator
Dim ne As NotesViewEntry
Set db = sess.CurrentDatabase
Set qs = db.GetView("ByStore2")
Set nv = qs.CreateViewNav
Set ne = nv.GetFirst
Print |Content-Type:application/vnd.ms-excel|
Print |<table border="1"><tr><td
width="80">Quarter</td><td>Sales</td></tr>|
While Not(ne Is Nothing)
Print|<tr><td>| + ne.ColumnValues(1) + |</td><td >| +
ne.ColumnValues(2) + |</td></tr>|
Set ne = nv.GetNext( ne )
Wend
Thanks Eric.
I'm not getting "agent done" msg anymore.
However no view data is being returned! If anyone has an idea why my script does not seem to enter the While loop, I might actually get somewhere!
I used the code given in the example (with Eric's two added lines) & I'm running Notes 5.0:
Dim sess As New NotesSession Dim db As NotesDatabase Dim qs As NotesView Dim nv As NotesViewNavigator Dim ne As NotesViewEntry Set db = sess.CurrentDatabase Set qs = db.GetView("ByStore2") Set nv = qs.CreateViewNav Set ne = nv.GetFirst Print |Content-Type:application/vnd.ms-excel| Print |<table border="1"><tr><td width="80">Quarter</td><td>Sales</td></tr>| While Not(ne Is Nothing) Print|<tr><td>| + ne.ColumnValues(1) + |</td><td >| + ne.ColumnValues(2) + |</td></tr>| Set ne = nv.GetNext( ne ) Wend