[求助]請教高手,關(guān)于用LotusScript語言畫表格的代碼

bobofish29

最近遇到一個編程上的小問題,想在這里請教做過LotusNotes開發(fā)的達(dá)人.
想用LotusScript畫個表格,表格的ROW不固定,要求用LotusScript代碼畫,目前我知道用NotesRichTextItem來做,但是做出來的看不到表格,不知道是不是哪里沒有做對,另附Source如下:

[Source]
Sub Click(Source As Button)
        
        Dim newDoc As NotesDocument
        Dim rtf As NotesRichTextItem
        Dim nav As NotesRichTextNavigator
        Dim tbl As NotesRichTextTable
        Dim strBody As String
        
        Set newDoc = New NotesDocument(curDB)
        strBody="Sample: Drawing a table"
        
        Set rtf = newDoc.CreateRichTextItem ("Body")
        
        'setup text styles used in document
        Dim columnHeaderStyle As NotesRichTextStyle
        Set columnHeaderStyle = session.CreateRichTextStyle( )
        columnHeaderStyle.Bold = True
        columnHeaderStyle.FontSize = 10
        columnHeaderStyle.NotesFont = rtf.GetNotesFont("Arial", True)
        
        Dim dataStyle As NotesRichTextStyle
        Set dataStyle = session.CreateRichTextStyle( )
        dataStyle.Bold = False
        dataStyle.FontSize = 9
        
        'Define an array of paragraph styles, which will set the width and alignment of each table column.
        Dim i As Integer, k As Integer
        Dim columnStyles(0 To 4) As NotesRichTextParagraphStyle
        For i = 0 To 4
                Set columnStyles(i) = session.CreateRichTextParagraphStyle
                columnStyles(i).LeftMargin = 0
                columnStyles(i).FirstLineLeftMargin = 0
        Next
        columnStyles(0).RightMargin = 3 * RULER_ONE_CENTIMETER
        columnStyles(0).Alignment = ALIGN_LEFT
        columnStyles(1).RightMargin = 8 * RULER_ONE_CENTIMETER
        columnStyles(1).Alignment = ALIGN_LEFT
        columnStyles(2).RightMargin = 4 * RULER_ONE_CENTIMETER
        columnStyles(2).Alignment = ALIGN_LEFT
        columnStyles(3).RightMargin = 4 * RULER_ONE_CENTIMETER
        columnStyles(4).Alignment = ALIGN_LEFT
        columnStyles(4).RightMargin = 1 * RULER_ONE_CENTIMETER
        columnStyles(4).Alignment = ALIGN_LEFT
        
        Dim headerColor As NotesColorObject
        Dim dataColor As NotesColorObject
        Set headerColor = session.CreateColorObject
        Call headerColor.SetRGB(239,239,239)
        Set dataColor = session.CreateColorObject
        Call headerColor.SetRGB(255,255,255)
        
        'add original note
        rtf.AppendText strBody
        rtf.AddNewline 1, True
        
        'Create an empty table
        Call rtf.AppendTable(5,5,,,columnStyles)
        
        'Create a navigator to position the text insertion point
        Set nav = rtf.CreateNavigator( )
        nav.FindLastElement RTELEM_TYPE_TABLE
        Set tbl = nav.GetElement
        
        'Set table to use different color for the top and the left column
        tbl.Style = TABLESTYLE_TOP
        tbl.SetColor headerColor
        tbl.SetAlternateColor dataColor
        
        'insert header
        rtf.AppendStyle columnHeaderStyle
        nav.FindNextElement RTELEM_TYPE_TABLECELL
        rtf.BeginInsert nav
        rtf.AppendText "Col_1"
        rtf.EndInsert
        nav.FindNextElement
        rtf.BeginInsert nav
        rtf.AppendText "Col_2"
        rtf.EndInsert
        nav.FindNextElement
        rtf.BeginInsert nav
        rtf.AppendText "Col_3"
        rtf.EndInsert
        nav.FindNextElement
        rtf.BeginInsert nav
        rtf.AppendText "Col_4"
        rtf.EndInsert
        nav.FindNextElement
        rtf.BeginInsert nav
        rtf.AppendText "Col_5"
        rtf.EndInsert
        
        rtf.AppendStyle dataStyle
        
        For i = 0 To 3
                nav.FindNextElement
                rtf.BeginInsert nav
                rtf.AppendText(i)
                rtf.EndInsert
                nav.FindNextElement
                rtf.BeginInsert nav
                rtf.AppendText(i)
                rtf.EndInsert
                nav.FindNextElement
                rtf.BeginInsert nav
                rtf.AppendText(i)
                rtf.EndInsert
                nav.FindNextElement
                rtf.BeginInsert nav
                rtf.AppendText(i)
                rtf.EndInsert
                nav.FindNextElement
                rtf.BeginInsert nav
                rtf.AppendText(i)
                rtf.EndInsert                 
        Next
        
End Sub
[Source]

bobofish29

唉,咋就沒人來解答捏?

sdlfly2000

我覺得這個問題蠻有趣的。通看了你的源代碼后，你有沒有發(fā)現(xiàn)在這個代碼中你用到的都是后臺類，也就是說即使你的代碼是作出了你要的表格，這個表格也是不會顯示的。

我有個想法，你在你的代碼上加上保存文檔的函數(shù)，然后重新打開這個文檔看看有沒有效果。

這個想法我也沒有試過。

呵呵～

bobofish29

原帖由 sdlfly2000 于 2008-5-1 19:14 發(fā)表
我覺得這個問題蠻有趣的。通看了你的源代碼后，你有沒有發(fā)現(xiàn)在這個代碼中你用到的都是后臺類，也就是說即使你的代碼是作出了你要的表格，這個表格也是不會顯示的。

我有個想法，你在你的代碼上加上保存文檔的 ...

樓上的兄弟,正如你所說,我做的表格應(yīng)該是沒有問題,就是顯示不出來,因為本人是剛開始學(xué)習(xí)LotusNotes開發(fā)編程,所以也不知道如何才能將表格顯出出來.

我的想法是想讓這個后臺做的表格,能夠在客戶端的RichText類型的Field中顯示出來,樓上的兄弟能否寫個代碼或是例子之類的供我參考一下!謝謝了!

lyg810928

下面是在你的代碼上修改的，已測試。
不過，在表格中間的格不能添加按鈕，只能在最后添加，很遺憾。
這段代碼是在VIEW上的按鈕。按鈕按下后VIEW中就會出現(xiàn)新建的文檔。

Sub Click(Source As Button)
       
        Dim ws As New NotesUIWorkspace
        Dim session As New NotesSession
        Dim curDB As NotesDatabase
       
        Dim newDoc As NotesDocument
        Dim rtf As NotesRichTextItem
        Dim nav As NotesRichTextNavigator
        Dim tbl As NotesRichTextTable
        Dim strBody As String
       
        Set curDB = session.CurrentDatabase
       
        Set newDoc = New NotesDocument(curDB)
       
        newDoc.form = "testform"
       
       
        strBody="Sample: Drawing a table"
       
        Set rtf = newDoc.CreateRichTextItem ("Body")
       
        'setup text styles used in document
        Dim columnHeaderStyle As NotesRichTextStyle
        Set columnHeaderStyle = session.CreateRichTextStyle( )
        columnHeaderStyle.Bold = True
        columnHeaderStyle.FontSize = 10
        columnHeaderStyle.NotesFont = rtf.GetNotesFont("Arial", True)
       
        Dim dataStyle As NotesRichTextStyle
        Set dataStyle = session.CreateRichTextStyle( )
        dataStyle.Bold = False
        dataStyle.FontSize = 9
       
        'Define an array of paragraph styles, which will set the width and alignment of each table column.
        Dim i As Integer, k As Integer
        Dim columnStyles(0 To 4) As NotesRichTextParagraphStyle
        For i = 0 To 4
                Set columnStyles(i) = session.CreateRichTextParagraphStyle
                columnStyles(i).LeftMargin = 0
                columnStyles(i).FirstLineLeftMargin = 0
        Next
        columnStyles(0).RightMargin = 3 * RULER_ONE_CENTIMETER
        columnStyles(0).Alignment = ALIGN_LEFT
        columnStyles(1).RightMargin = 8 * RULER_ONE_CENTIMETER
        columnStyles(1).Alignment = ALIGN_LEFT
        columnStyles(2).RightMargin = 4 * RULER_ONE_CENTIMETER
        columnStyles(2).Alignment = ALIGN_LEFT
        columnStyles(3).RightMargin = 4 * RULER_ONE_CENTIMETER
        columnStyles(4).Alignment = ALIGN_LEFT
        columnStyles(4).RightMargin = 1 * RULER_ONE_CENTIMETER
        columnStyles(4).Alignment = ALIGN_LEFT
       
        Dim headerColor As NotesColorObject
        Dim dataColor As NotesColorObject
        Set headerColor = session.CreateColorObject
        Call headerColor.SetRGB(239,239,239)
        Set dataColor = session.CreateColorObject
        Call dataColor.SetRGB(255,255,255)
       
        'add original note
        rtf.AppendText strBody
        rtf.AddNewline 1, True
       
        'Create an empty table
        Call rtf.AppendTable(5,5,,,columnStyles)
       
        'Create a navigator to position the text insertion point
        Set nav = rtf.CreateNavigator( )
        nav.FindLastElement RTELEM_TYPE_TABLE
        Set tbl = nav.GetElement
       
        'Set table to use different color for the top and the left column
        tbl.Style = TABLESTYLE_TOP
        tbl.SetColor headerColor
        tbl.SetAlternateColor dataColor
       
        'insert header
        rtf.AppendStyle columnHeaderStyle
        nav.FindNextElement RTELEM_TYPE_TABLECELL
        rtf.BeginInsert nav
        rtf.AppendText "Col_1"
        rtf.EndInsert
        nav.FindNextElement
        rtf.BeginInsert nav
        rtf.AppendText "Col_2"
        rtf.EndInsert
        nav.FindNextElement
        rtf.BeginInsert nav
        rtf.AppendText "Col_3"
        rtf.EndInsert
        nav.FindNextElement
        rtf.BeginInsert nav
        rtf.AppendText "Col_4"
        rtf.EndInsert
        nav.FindNextElement
        rtf.BeginInsert nav
        rtf.AppendText "Col_5"
        rtf.EndInsert
       
        rtf.AppendStyle dataStyle
       
        For i = 0 To 3
                nav.FindNextElement
                rtf.BeginInsert nav
                rtf.AppendText(i)
                rtf.EndInsert
                nav.FindNextElement
                rtf.BeginInsert nav
                rtf.AppendText(i)
                rtf.EndInsert
                nav.FindNextElement
                rtf.BeginInsert nav
                rtf.AppendText(i)
                rtf.EndInsert
                nav.FindNextElement
                rtf.BeginInsert nav
                rtf.AppendText(i)
                rtf.EndInsert
                nav.FindNextElement
                rtf.BeginInsert nav
                rtf.AppendText(i)
                rtf.EndInsert                 
        Next
       
        Call newDoc.Save(True,True)
        Call ws.ViewRefresh
       
End Sub

[ 本帖最后由 lyg810928 于 2008-9-24 16:42 編輯 ]