怎么将环境变量的值取出来放到打开的表单中？（C/S）
怎么将环境变量的值取出来放到打开的表单中？（C/S）
Sub Click(Source As Button)
Dim session As New notessession
Dim ws As New NotesUIWorkspace
Dim uidoc As notesuidocument
Dim db As notesdatabase
Dim doc As notesdocument
Set db=session.currentdatabase
'Set doc=session.documentcontext
Set uidoc=ws.CurrentDocument
Call session.setenvironmentvar("ldps",uidoc.fieldgettext("subject"))
Call ws.ComposeDocument("","DocManage\CRST.nsf","Form")
End Sub
我已经把值放到环保变量中了，怎么才能把值取出来，放在form表单中的TITLE域中呢
问题点数：0、回复次数：7Top
1 楼aweipan（畇嘉）回复于 2003-12-04 12:52:48 得分 0
此範例給你參考看看
Dim session As New NotesSession
Dim db As NotesDatabase
Dim ndoc As NotesDocument
Set db = session.CurrentDatabase
Set ndoc = New NotesDocument( db ) <--新的Form
ndoc.Form = "App_Change" <-- 新Form的Form Name
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Set doc = uidoc.Document
Call ndoc.ReplaceItemValue("txtOldDoc_No",doc.txtDoc_No(0) )
Call ndoc.ReplaceItemValue("rbtType",doc.rbtType )
Call ndoc.ReplaceItemValue("dlbProduct",doc.dlbProduct(0) )
Call ndoc.ReplaceItemValue("dlbModel",doc.dlbModel(0) )
Call ndoc.Save( False, True )
Call ws.EditDocument( False, ndoc) <==開啟新的FormTop
2 楼IBM123（）回复于 2003-12-04 12:59:26 得分 0
如果为固定变量名,在表单的TITLE域中缺省值为:@Environment("ldps").
Top
3 楼aweipan（畇嘉）回复于 2003-12-04 13:04:05 得分 0
再給一個將目前文件的值傳到sample資料庫中某文件欄位上
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim nuidoc As NotesUIDocument
Set uidoc = ws.CurrentDocument
Set nuidoc = ws.CurrentDocument
Dim db As NotesDatabase
Dim ndoc As NotesDocument
Set nuidoc = ws.ComposeDocument( "DWF/TEST","Sample.nsf","Folw App_Form")
Set ndoc = nuidoc.document
Call ndoc.ReplaceItemValue("MaterialSpec",uidoc.FieldGetText("txtMaterialSpec")) <==將目前文件的值寫到Folw App_Form <--此Form中
Call ndoc.ReplaceItemValue("vendor",uidoc.FieldGetText("txtCompany_name"))
Call ndoc.Save( False, True )Top
4 楼aweipan（畇嘉）回复于 2003-12-04 13:06:09 得分 0
不好意思 我不太懂你所說的 "环境变量的值"、"固定变量名"的意思Top
5 楼moonbaba（素颜）回复于 2003-12-05 09:56:54 得分 0
我重新写了一下可是还是不能把值赋进去,报“object variable not set”
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim nuidoc As NotesUIDocument
Set uidoc = ws.CurrentDocument
Set nuidoc = ws.CurrentDocument
Dim db As NotesDatabase
Dim ndoc As NotesDocument
Set nuidoc = ws.ComposeDocument("fanyan","docmanage\CRST.nsf","Form")
Set ndoc = nuidoc.document
call ndoc.ReplaceItemValue("Subject",uidoc.FieldGetText("Subject"))Top
6 楼aweipan（畇嘉）回复于 2003-12-05 11:06:01 得分 0
你可以先用Notes的偵錯，查看nuidoc這是否有抓到值
若沒有，有可能你此行有錯ws.ComposeDocument("fanyan","docmanage\CRST.nsf","Form")
以下這一行這樣是對的
call ndoc.ReplaceItemValue("Subject",uidoc.FieldGetText("Subject"))Top
7 楼IBM123（）回复于 2003-12-05 13:28:28 得分 0
就用你原来的代码,在FORM表中TITLE域中缺省值为:@Environment("ldps")就可以了.
Top
