518
社区成员
- 主页
...全文
请发表友善的回复…
发表回复
ijianbo 2003-03-29
谢谢各位了！
BillyW 2003-03-29
dim uiws as new notesuiworkspace
dim uidoc as notesuidocument
dim doc as notesdocument
dim strYouWant as string
set uidoc=uiws.currentdocument
set doc=uidoc.document
set strYouWant=doc.FieldNameYouWantToGet(0)
messagebox strYouWant
粘按钮里就好用!!!
dim uidoc as notesuidocument
dim doc as notesdocument
dim strYouWant as string
set uidoc=uiws.currentdocument
set doc=uidoc.document
set strYouWant=doc.FieldNameYouWantToGet(0)
messagebox strYouWant
粘按钮里就好用!!!
jiaojianjj 2003-03-29
最好用公式@GetDocField,这样快一些，不懂可以去看看帮助
jimmyvk 2003-03-29
这么长,治学严谨呀.
......
dim tmpstring as string
tmpstring=doc.fieldname(0)
......
......
dim tmpstring as string
tmpstring=doc.fieldname(0)
......
cjxs 2003-03-28
如果是取域值的应该是这样：
dim ws as new NotesUIWorkspace
dim uidoc as NotesUIDocument
dim doc as NotesDocument
set uidoc=ws.CurrentDocument '/取得当前表单对象
set doc=uidoc.Document '/取得当前表单的文档(数据)对象
'/以下为标准的取值代码，据LotusScript开发规范规定
ItemValue=doc.GetItemValue("ItemName")(0)
'/如果是多值域的话：
itemValues=doc.GetItemValue("ItemName")
* 另附：
如果在表单相关事件中编写，可以使用表单事件中提供的Source as NotesUIDocument 参数：
dim doc as NotesDocument
set doc=Source.Document
itemvalue=doc.GetItemValue("ItemName")(0)
dim ws as new NotesUIWorkspace
dim uidoc as NotesUIDocument
dim doc as NotesDocument
set uidoc=ws.CurrentDocument '/取得当前表单对象
set doc=uidoc.Document '/取得当前表单的文档(数据)对象
'/以下为标准的取值代码，据LotusScript开发规范规定
ItemValue=doc.GetItemValue("ItemName")(0)
'/如果是多值域的话：
itemValues=doc.GetItemValue("ItemName")
* 另附：
如果在表单相关事件中编写，可以使用表单事件中提供的Source as NotesUIDocument 参数：
dim doc as NotesDocument
set doc=Source.Document
itemvalue=doc.GetItemValue("ItemName")(0)
flyeyer 2003-03-28
有很多种方法: doc.fieldname(0)=temp
temp = uidoc.FieldGetText( "fieldname" )
但是后一种只能取出字符串，如果是数组可以这样
forall v in doc.filedname
temp=v
end forall
temp = uidoc.FieldGetText( "fieldname" )
但是后一种只能取出字符串，如果是数组可以这样
forall v in doc.filedname
temp=v
end forall