一个视图，里面有6000多条数据，求代理！

先放到记事本里，再粘过去，应该没什么问题。收起

我把它放在代理里面，有好多都是红色的（视图名称替换为：itemmaster_se）收起

Dim session As New NotesSession

Dim view As NotesView

Dim db As NotesDatabase

Dim tempdoc As NotesDocument

Dim doc As notesdocument

Set db = session.CurrentDatabase

Set view = db.GetView("视图")

Set tempdoc = view.GetFirstDocument

While Not(tempdoc Is Nothing)

Set doc = tempdoc

Set tempdoc = view.GetnextDocument(tempdoc)
‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘
计算，赋值
‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘

Call doc.save(True,true)

Wend收起

a:=@If(type_l="";0;type_l);
b:=@If(chicundanwei="mm";a;((a*2.54)));
FIELD type_i_mm_1:=b;
@Command([ToolsRefreshSelectedDocs])
这样视乎不对啊。收起

你给的网站我打不开啊，能不能直接给我代理。收起

看这里：
How to Refresh All or Selected Documents with a Notes Client
http://www-01.ibm.com/support/docview.wss?uid=swg21086126

@Command([ToolsRefreshAllDocs]) Refresh all documents
@Command([ToolsRefreshSelectedDocs]) Refresh selected documents收起

我增加了几个计算域。收起

修改了表单是指修改了表单的名称还是里面某个字段的信息呢？单个字段数据 你可以直接建个简单的操作代理，修改下域值的收起