LS代码实现点复选框即时弹出子表单(R6以上版本)
来源:互联网 发布:linux ntpdate 端口 编辑:程序博客网 时间:2024/04/29 08:18
Sub Onchange(Source As Field)
Dim workspace As New NotesUIWorkspace
Dim session As New NotesSession
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim dates As Variant
'Dim finaldate As NotesItem
Set uidoc = workspace.CurrentDocument
Set doc=uidoc.Document
Dim item As notesitem
If Ubound(doc.test)>Ubound(doc.test1) Or (doc.test1(0)="")Then
For i=0 To Ubound(doc.test)
count=0
For j=0 To Ubound(doc.test1)
If (doc.test(i)<>doc.test1(j))Then
Dates=doc.test(i)
count=count+1
End If
Next
If (count-1)=Ubound(doc.test1)Then
doc.finaldate=dates
End If
Next
Call workspace.DialogBox( "test", True, True, True, True,False, False, "Help" )
End If
Set item = doc.GetFirstItem( "test" )
Call doc.CopyItem(item,"test1")
End Sub
- LS代码实现点复选框即时弹出子表单(R6以上版本)
- 表单操作-复选框
- Thinkphp 3.2及以上版本实现支付宝担保交易、即时到账接口类、函数和使用方法
- 记录 “Thinkphp 3.2及以上版本实现支付宝担保交易、即时到账接口类、函数和使用方法”
- jquery.alert 弹出式复选框实现代码
- Javscript实现表单复选框的全选功能
- Javscript实现表单复选框的全选功能
- C语言代码实现 ls
- 代码实现Linux ls命令
- 在2.7.14版本中这代码实现不了,是否必须到3以上的版本?
- 表单验证,包括复选框
- 表单复选框选择删除
- 表单美化至--复选框
- PopUpWindow实现半透明弹出框关键点
- R6
- r6
- 将复选框实现单效果的代码
- PHP如何获取表单所有复选框的值?实例代码
- 《设计模式》读书笔记小结一下
- 我的blog
- 算法-字符串匹配(String Matching)-(1)-朴素匹配和Rabin-Karp算法
- 统计学 学习笔记 (三)—— 掌握数据的整体状态 数据的变异性
- 京东商城 280以下显卡参数对比。
- LS代码实现点复选框即时弹出子表单(R6以上版本)
- 报道
- B3log Solo & B3log Symphony/Rhythm
- 我来了
- 解决iis7.5express在winxp无法安装的问题
- javascript修改DOM后 checked丢失 解决方法之一
- 手工的词法分析器(雏形)
- 哈佛mba教程
- 导出到 excel 碰到的问题