188宝金博页面版

  • 图案背景
  • 纯色背景
视图
标记
批注
批注本地保存成功，开通会员云端永久保存 去开通
w77275

上传于：2014-11-03

粉丝量：14

该文档贡献者很忙，什么也没留下。


  • 相关
  • 目录
  • 笔记
  • 书签

188宝金博页面版:更多相关文档

  • 综合使用JavaScript、LotusScript_Agent和Formula的技巧

    星级： 111 页

  • javascript、lotusscript_agent和formula的使用技巧

    星级： 79 页

  • JavaScript、LotusScript_Agent和Formula的使用技巧

    星级： 79 页

  • JavaScript、LotusScript_Agent和Formula的使用技巧

    星级： 79 页

  • acr和scr综合使用技巧

    星级： 13 页

  • ACR和SCR综合使用技巧

    星级： 12 页

  • ACR和SCR综合使用技巧

    星级： 21 页

  • ACR和SCR综合使用技巧

    星级： 13 页

  • ACR和SCR综合使用技巧

    星级： 1 页

  • vi的使用和技巧

    星级： 15 页

  • javascript使用技巧

    星级： 19 页

  • JavaScript使用技巧

    星级： 18 页

  • 综合实训课程中表格控件的使用方法和技巧

    星级： 2 页

  • 综合使用javascript、lotusscript_agent和formula的技巧（Comprehensive skills in using JavaScript, lotusscript_agent, and formula）

    星级： 31 页

  • 在Swift中使用JavaScript的方法和技巧

    星级： 13 页

暂无目录

点击鼠标右键菜单,创建目录

    暂无笔记

    选择文本，点击鼠标右键菜单，添加笔记

    暂无书签

    在左侧文档中，点击鼠标右键，添加书签

    188宝金博页面版: 综合使用JavaScript、LotusScript_Agent和Formula的技巧

    下载积分： 1500

    内容提示： } Print {} Print {} Print { } ' 获得欲检索的数据库， 存放在数组 ArrNsf 内： ArrNsf= doc. DatabaseName ' 如果没有输入检索条件， 则输出提示信息： If Trim(Cstr(doc. Query(0) ) ) ="" Then Goto EmptyQuery End If Dim MatchDoc As NotesDocument Dim db As NotesDatabase, Dim collection As NotesDocumentCollection ' 下列循环从数组 ArrNsf 中取得欲检索的数据库进行处理： For nsfCount=0 To Ubound( ArrNsf ) SearchDB=ArrNsf(nsfCount) Set db = sess. GetDatabase("", SearchDB) ...

    文档格式：TXT | 页数：1 | 浏览次数：56 | 上传日期：2014-11-03 17:19:39 | 文档星级：
    } Print {} Print {} Print { } ' 获得欲检索的数据库， 存放在数组 ArrNsf 内： ArrNsf= doc. DatabaseName ' 如果没有输入检索条件， 则输出提示信息： If Trim(Cstr(doc. Query(0) ) ) ="" Then Goto EmptyQuery End If Dim MatchDoc As NotesDocument Dim db As NotesDatabase, Dim collection As NotesDocumentCollection ' 下列循环从数组 ArrNsf 中取得欲检索的数据库进行处理： For nsfCount=0 To Ubound( ArrNsf ) SearchDB=ArrNsf(nsfCount) Set db = sess. GetDatabase("", SearchDB) ' 出现错误则转向： On Error Goto BadQuery ' 获得满足查询条件的记录集： Set collection = db. FTSearch(doc. Query(0) , 0) On Error Goto 0 ' 输出数据库标题： Print " " Print db. title Print " " ' 输出该数据库中满足条件的记录个数： Print "There are " & Str$(collection. Count) & " matching documents " ' 下列循环从满足条件的记录集中读取记录并输出： For i% = 1 To collection. Count Set MatchDoc = collection. GetNthDocument(i%) Print { } Print "" ' 如果文档包含 Subject 或 Title， 则输出 Subject 或Title： Set item =MatchDoc. GetFirstItem( "Subject" ) If ( item Is Nothing ) Then Set item = MatchDoc. GetFirstItem( "Title" ) End If If Not (item Is Nothing) Then Print " " & item. Name & ": " & item. Text End If ' 如果文档包含 Categories， 则输出 Categories： Set item = MatchDoc. GetFirstItem( "Categories" ) If Not (item Is Nothing) Then Print item. Name & ": " & item. Text End If ' 输出文档产生日期和作者： createDate = MatchDoc. Created Print "Document create date: " &createDate Print " Authors: " Forall aAuthor In MatchDoc. Authors Print aAuthor End Forall Print " " Next Next Out: Print {

    阅读了该文档的用户还阅读了这些文档

    188宝金博页面版:关于我们

    188宝金博页面版:帮助中心

    188宝金博页面版:关注我们

    • 新浪微博

    关注188宝金博页面版公众号

    188宝金博页面版
    阅读
    APP
    阅读
    返回
    顶部
    188宝金博页面版官网登录在线平台入口（2026已更新）—江苏协昌电子科技股份有限公司