壹佰网|ERP100 - 企业信息化知识门户

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 1342|回复: 4

[Domino C/S开发] [求助]如何用公式读取固定视图的文档中的域值?

[复制链接]
发表于 2003/5/21 09:49:48 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。如果您注册时有任何问题请联系客服QQ: 83569622  。

您需要 登录 才可以下载或查看,没有帐号?注册

x
我想用公式读取某个视图的文档中的某个域的值!
不知道可不可以实现?请教各位!
发表于 2003/5/21 12:13:00 | 显示全部楼层
可以啊!你设计视图的时候列值选择域,然后选择你要显示的域的名称就好了!
 楼主| 发表于 2003/5/21 13:42:54 | 显示全部楼层
        '设定当前的工作空间       
        Dim workspace As New NotesUIWorkspace
        Set uidoc = workspace.CurrentDocument
       
        '取文档中的域值
        '定义绘画
        Dim session As New notessession
        Dim db As notesdatabase
        Dim view As notesview
        Dim doc As notesdocument
       
        '设定绘画
        Set db = session.currentdatabase
        Set view = db.getview("set_doc")
        Set doc = view.getfirstdocument
       
        '取文档值
        mid_list = doc.globals_list_number(0)
       
     '判断文档中的值来确定显示的值
        midnum = Val(mid_list)
        If midnum < 10 Then
                last_list = first_list + "000" + Right(mid_list,1)
        Elseif midnum < 100 Then
                last_list = first_list + "00" + Right(mid_list,2)
        Elseif midnum < 1000 Then
                last_list = first_list + "0" + Right(mid_list,3)
        Else
                last_list = first_list + Right(mid_list,4)
        End If
       
        '给出正确的维修单流水号值
        Call uidoc.fieldsettext( "ser_list",last_list )
       
        '修改配置表单
        midstr = Cstr(midnum+1)
        doc.globals_list_number = midstr
        Call doc.save(True, True)
        我的意思是通过公式来实现上面的内容!呵呵~~~~
       
发表于 2003/5/25 20:28:17 | 显示全部楼层
我想可能不行,因为公式没有这么强的功能。
 楼主| 发表于 2003/5/27 09:47:28 | 显示全部楼层
哦!现在我已经通过语言解决了
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|Archiver|小黑屋|手机版|壹佰网 ERP100 ( 京ICP备19053597号-2 )

Copyright © 2005-2012 北京海之大网络技术有限责任公司 服务器托管由互联互通
手机:13911575376
网站技术点击发送消息给对方83569622   广告&合作 点击发送消息给对方27675401   点击发送消息给对方634043306   咨询及人才点击发送消息给对方138011526

GMT+8, 2025/11/30 03:24 , Processed in 0.012724 second(s), 14 queries , File On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表