In an earlier article I wrote about displaying information from a Notes View in a Dojo tree dijit.
A scan via Google what others have been doing on this matter did not result in so much valuable information untill I found an article on IBM developerWorks … in chinese.
If you translate the page via Yahoo! Babel Fish you get some really odd result. However, if you translate the page via Google Translate you get a really good translation in a format that I can understand.
I wonder if IBM has ever released this article in English? I hope they do not find it a trouble if I make it available in a PDF format: developing a common Tree View Custom Controls…
Unfortunately I haven’t had the time to test the article in a demo database, but if you have, please let me know…
Hi Patrick,
i have seen something similar on open NTF:
http://www.openntf.org/catalogs/a2cat.nsf/topicThread.xsp?action=openDocument&documentId=89CC27D005F2110786257662004EE043
But the documentation there is focused on using the custom control, not developing it
Hi Patrick,
Here is the code you have asked,
Option Public
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim webdoc As NotesDocument
Dim doc As NotesDocument
Dim entrycoll As NotesViewEntryCollection
Dim entry As NotesViewEntry
Dim arrName() As String
Dim arrValue() As Integer
Dim arrColor(6) As String
Dim i As Integer
Dim j As Integer
i=0
j=0
arrColor(0)=”AFD8F8″
arrColor(1)=”F6BD0F”
arrColor(2)=”8BBA00″
arrColor(3)=”008E8E”
arrColor(4)=”D64646″
arrColor(5)=”588526″
arrColor(6)=”B3AA00″
Set db= session.CurrentDatabase
Set view= db.GetView(“$ProgrammingCommunity”)
Set webdoc = session.DocumentContext
Set entrycoll = view.AllEntries
If entrycoll.Count > 0 Then
Set entry = entrycoll.GetFirstEntry
While Not entry Is Nothing
Set doc = entry.Document
Redim Preserve arrName(i)
arrName(i) = doc.GetItemValue(“programName”)(0)
i = i+1
Redim Preserve arrValue(j)
arrValue(j) = doc.GetItemValue(“Percentage”)(0)
j = j+1
Set entry = entrycoll.GetNextEntry(entry)
Wend
Dim head As Variant
Dim graph As Variant
head= {}
head = head+ { }
graph={}
For i = 0 To Ubound(arrName)
graph =graph+{}
Next
graph=graph+{}
head=head+{}
head=head+{}
head=head+{}
head= head+{}
Print head
End If
End Sub
Opps, HTML is gone .. drop me an e-mail to rishi.sahi@gmail.com , I will pass you the code or database as you want.