怎样把一个域的值添加到另一个域的列表中?

yangsiji 2004-12-22 03:00:18
用AppendtoTextList Methord 好像不行,哪位大哥可否指点一二?
...全文
207 9 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
心雪峰 2004-12-25
  • 打赏
  • 举报
回复
其实最简单的方法就是用 javascript 呵呵。。
huoniao0011 2004-12-25
  • 打赏
  • 举报
回复
楼上一段用以下的试试
a=uidoc.FieldGetText("无标题2")
call uidoc.FieldSetText("无标题",a)

域值要用事件或者鼠标激活
chenjj2002 2004-12-24
  • 打赏
  • 举报
回复
刚试了一下,一个域为对话框列表,名为“无标题”;另一个域为文本,名为“无标题2”;现在在“无标题2”的exiting事件里写下下面代码:
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim a As Variant
Set uidoc=ws.CurrentDocument
Set doc=uidoc.Document
a=uidoc.FieldGetText ("无标题2")
Call uidoc.FieldAppendText ("无标题",a)
Call uidoc.Save
Call uidoc.RefreshHideFormulas

试过可以
skystar99047 2004-12-23
  • 打赏
  • 举报
回复
可以用JavaScript
gdman 2004-12-23
  • 打赏
  • 举报
回复
如果想不需要刷新,提高速度,可以使用Javascript
yangsiji 2004-12-22
  • 打赏
  • 举报
回复
好感动哦,谢谢你们!
deertree 2004-12-22
  • 打赏
  • 举报
回复
doc.field_b = evaluate("field_a:field_b",doc)
cerpperfield 2004-12-22
  • 打赏
  • 举报
回复
确定数据库的属性中自动刷新域选项选中了没,如果实在不行,且是在两个不同的表里面,可以将域放到视图的一列中,然后在列表框中选用公式@unique(@dbcolumn("":"";"":"视图";第几列))就可以了!!这个方法有点烦,应该有更加好的!!关注!!
yangsiji 2004-12-22
  • 打赏
  • 举报
回复
补:一个域是输入框,另一个域是列表框。

536

社区成员

发帖
与我相关
我的任务
社区描述
企业开发 Exchange Server
社区管理员
  • 消息协作社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧