在R6 下怎么用 CreateView ？？

[lyn0605]

我看他的帮助然后 按照有模版创建视图，怎么总是告诉我类型错误！？
Dim session As New NotesSession
Dim curdb As NotesDatabase

Set curdb = session.CurrentDatabase
Dim viewinfo As NotesView
Set viewinfo = curdb.CreateView("viewFenlei", "", templatview,True)就是这句话总是说类型错误。。。。

[ysou41]

templatview 是用于继承设计的另外一个View的名字

[rosemerry]

templateView
NotesView. Optional. An existing view from which the new view is copied. Defaults to either:
The view checked as "Default design for new folders and views" in the database.
None if no view in the database is specified as the default design.

[rosemerry]

templateView是一个notesView类型的

[diegochen]

你的摸版就叫templatview么?如果不是应该改成你摸版视图的名字吧

[rosemerry]

... ...
Dim templateView As NotesView
Set templateView = curdb.GetView(sourceViewname)
Set viewinfo = curdb.CreateView("viewFenlei", "", templateView ,True)
... ...

[lyn0605]

CreateView 之后怎么能内置成Html 除了手动之外，有没有一个方法？！在帮助里我没有找到。。。。。

[loadagain]

你摸板设置成html不就行了吗,傻啊

[lyn0605]

最后一只妖怪,你说的方法我早就用了！！！