常用命令代码和设置.docx
- 文档编号:30681062
- 上传时间:2023-08-19
- 格式:DOCX
- 页数:56
- 大小:35.17KB
常用命令代码和设置.docx
《常用命令代码和设置.docx》由会员分享,可在线阅读,更多相关《常用命令代码和设置.docx(56页珍藏版)》请在冰豆网上搜索。
常用命令代码和设置
1、常用命令2
2、视图中只显示当前用户创建的文档的选择条件2
3、lotus&excel的倒入,倒出代理2
倒入代理:
3
倒出代理:
5
倒出代理的条件(月份、年、其他条件)的代码:
7
导出:
按时间段导出10
4、保存时发邮件通知12
5、保存时文档自动编号和不能为空限制12
6、表单名和快捷键13
7、点击弹出表单14
8、多人建表时冲突提示14
9、发送邮件14
10、反重复16
11、将表单复制到my文件夹中17
12、控制文档是否存储17
13、NotesViewEntryCollection示例18
14、判断域的类型和是否为空18
15、添加附件到域.18
16、文档的创建和删除.19
17、样例,variant,string,evaluate19
18、主文档,答复文档,答复的答复层层缩进20
19、XML格式的导入和导出20
20、控制是否隐藏23
21、流水码生成23
22、对话框列表根据不同部门显示不同内容25
23、SQL和NOTES关联26
24.如何取得访问的IP地址28
26使用LotusScript将Word功能表中指定项隐藏30
27常用颜色设置31
28打开WINDOWS应用32
29显示分辨率的获取32
30.保留域FORM34
31双点鼠标不启动编辑模式34
32.插入附件34
33、RFT域的复制35
34、RFT导入到EXCEL36
35、表单里内容禁止COPY36
36.表单禁止保存36
37.在视图中删除标记的选项37
38.删除打开的UIDOC文档,及删除当前的文档37
39.保存并继续38
40.日历设置--日期采集器的设置38
1、常用命令
新建:
@command([compose];"表名")
删除:
@command([editclear])
注:
在视图中删除文档:
@Command([EditClear]);@PostedCommand([ViewRefreshFields])
编辑:
@command([editdocument])
打开:
@command([editdocument];"0")
搜索:
@command([viewshowsearchbar])
退出:
@command([fileclosewindow])
展开:
@command([viewexpandall])
折叠:
@command([viewcollapseall])
上一条记录:
@command([navigateprev])
下一条记录:
@command([navigatenext])
刷新:
@command([])
保存退出:
@command([filesave])
简化当前用户:
@Name([Abbreviate];@UserName)
显示未读/所有视图中切换:
@Command([ViewShowOnlyUnread])
显示名字:
@name([cn];@username)
显示创建日期或时间:
@date(@created);@time(~~~~~)
规范化为名字格式:
@Name([Canonicalize];Name)
日期格式规范:
doc1.Date=Format(Today(),"yyyy-mm-dd")
地址栏加载数据:
@Unique(@DbColumn("":
"NoCache";"bserver/com":
"sql.nsf";"按部门别";1))1为第几行(竖);
打印:
@Command([FilePrint])
2、视图中只显示当前用户创建的文档的选择条件
SELECT(@Contains(@Name([Abbreviate];@Author);@Name([Abbreviate];@UserName)))
3、lotus&excel的倒入,倒出代理
注意:
存储DOC中的域的数值,改为下面的代码
DimfilenameAsString
DimfitemAsVariant
rows=3
cols=1
exapp.visible=True
Fori=1Tocoll
SetdocA=docoll.getnthdocument(i)
exapp.statusbar="正在从Notes里导出数据,可能要一段时间,请等候....."
Forj=0ToUbound(view.columns)
Ifview.columns(j).ishidden=FalseThen
Ifview.columns(j).title<>""Then
filename=view.columns(j).itemname
fitem=docA.GetItemValue(filename)
Iffitem(0)=""Then
exsheet.cells(rows,cols).value=""
Else
exsheet.cells(rows,cols).value=Cstr(fitem(0))
EndIf
EndIf
exapp.rows(rows).select
exapp.selection.font.size=10
cols=cols+1
EndIf
Next
倒入代理:
要导入的EXCEL文件的路径获取:
excelFilename=ws.OpenFileDialog(False,"选择要上传的EXCEL","Excel|*.xls","c:
\")
SubInitialize
DimexcelFilenameAsString
excelFilename=Inputbox("请输入Excel档案所在的路径?
例如:
c:
/programmefiles/c.xls","输入Excel档案位置","c:
/programmefiles/c.xls")
IfDir(excelFilename)=""Then
Messagebox"Excel档案不存在,请重新填写"
ExitSub
EndIf
DimwsAsNewNotesUIWorkspace
DimsAsNewNotesSession
DimdbAsNotesDatabase
DimviewAsNotesView
Setdb=s.CurrentDatabase
DimrowAsInteger
DimexcelAsVariant
DimxlWorkbookAsVariant
DimxlSheetAsVariant
Dimrow1AsInteger
DimstrstyleAsString
Print"正连接excel......"
Setexcel=createobject("Excel.application")
excel.visible=False
Print"opening"&excelFilename&"......"
excel.workbooks.openexcelFilename
SetxlWorkbook=excel.activeWorkbook
SetxlSheet=xlWorkbook.activeSheet
row=2
Print"开始从Excel汇入资料"
Setview=db.GetView("xm")
DoWhileTrue
finish:
row1=row+1
WithxlSheet
If.cells(row,1).value=""And.cells(row,2).value=""And.cells(row,3).value=""And.cells(row,4).value=""And.cells(row,5).value=""Then
If.cells(row1,1).value=""And.cells(row1,2).value=""And.cells(row1,3).value=""And.cells(row1,4).value=""And.cells(row1,5).value=""Then
ExitDo
Else
Gotonextdoc
EndIf
EndIf
Setdoc=db.CreateDocument
doc.form="test"
doc.xb=.cells(row,2).value
doc.name=.cells(row,3).value
doc.gg=.cells(row,4).value
If.cells(row,5).value<>""Then
doc.style=.cells(row,5).value
strstyle=doc.style(0)
Else
doc.style=strstyle
EndIf
Calldoc.save(False,True)
EndWith
nextdoc:
row=row+1
Gotofinish
Loop
IfNotexcelIsNothingThen
Print"disconnectingfromExcel....."
xlWorkbook.closeFalse
excel.quit
Setexcel=Nothing
Print""
EndIf
EndSub
倒出代理:
SubInitialize
DimsAsNewNotesSession
DimdbAsNotesDatabase
DimviewAsNotesView
DimdocAsNotesDocument
DimexappAsVariant
DimexsheetAsVariant
DimexworkbookAsVariant
DimdocallAsNotesDocumentCollection
Setdb=s.CurrentDatabase
Setview=db.GetView("ljbh")
Setexapp=createobject("excel.application")
exapp.referencestyle=2
exapp.statusbar="正在计算导出Excel,请稍后..."
exapp.workbooks.add
Setexsheet=exapp.workbooks
(1).worksheets
(1)
exsheet.name="TipTop零件编码申请"
DimrowAsInteger
DimcolAsInteger
DimmaxcolAsInteger
row=1
col=1
Forx=0ToUbound(view.Columns)
Ifview.Columns(x).ishidden=FalseThen
Ifview.Columns(x).title<>""Then
exsheet.cells(row,col).value=view.Columns(x).title
EndIf
col=col+1
EndIf
Next
maxcol=col-1
key=Inputbox$("请输入要统计的月份,如:
2006-05","统计月份")
IfLen(key)<>7Then
Messagebox"输入的月份格式不对,请重新输入",,"提示"
ExitSub
EndIf
srchstring="selectform='applyform'&"+"@contains(@text(rq);'"+key+"')"
Setdocall=db.Search(srchstring,Nothing,0)
DimcollAsString
coll=docall.Count
Ifcoll=""Then
Messagebox"没有符合的记录,请确认输入条件是否正确",0,"警告"
ExitSub
Else
Messagebox"共有"+coll+"条符合要求的记录"
EndIf
DimfilenameAsString
DimfitemAsnotesitem
row=2
col=1
exapp.visible=True
Fori=1Tocoll
Setdoc=docall.getnthdocument(i)
exapp.statusbar="正在从Notes里导出数据,可能要一段时间,请等候....."
Forj=0ToUbound(view.columns)
Ifview.columns(j).ishidden=FalseThen
Ifview.columns(j).title<>""Then
filename=view.columns(j).itemname
Setfitem=doc.getfirstitem(filename)
exsheet.cells(row,col).value=fitem.text
EndIf
col=col+1
EndIf
Next
col=1
row=row+1
Setdoc=docall.GetNthDocument(i)
Next
'格式化excel表
exapp.rows("1:
1").select
exapp.selection.font.bold=True
exapp.range(exsheet.cells(1,1),exsheet.cells(row,maxcol)).select
exapp.selection.font.name="Arial"
exapp.selection.font.size=9
exapp.selection.columns.autofit
exapp.referencestyle=1
exapp.range("A1").select
exapp.statusbar="数据导入完成"
EndSub
倒出代理的条件(月份、年、其他条件)的代码:
SubInitialize
DimsessAsNotesSession
DimdbAsNotesDatabase
DimViewAsNotesView
DimdocollAsNotesDocumentCollection
DimdocAAsNotesDocument
DimexappAsVariant
DimexworkbookAsVariant
DimexsheetAsVariant
DimsrchStringAsString
Setsess=NewNotesSession
Setdb=sess.currentdatabase
Setview=db.getview("ecr未完工A")
Setexapp=createobject("excel.application")
exapp.referencestyle=2
exapp.statusbar="正在创建excel,請稍后...."
exapp.workbooks.add
Setexsheet=exapp.workbooks
(1).worksheets
(1)
exsheet.name="工程变更记录表"
DimrowsAsInteger
DimcolsAsInteger
DimmaxcolsAsInteger
rows=1
cols=1
Forx=0ToUbound(view.columns)
Ifview.columns(x).ishidden=FalseThen
Ifview.columns(x).title<>""Then
exsheet.cells(rows,cols).value=view.columns(x).title
EndIf
cols=cols+1
EndIf
Next
maxcols=cols-1
%REM
'key=Inputbox$("請輸入要統計的月份,如:
2003/01","統計月份")
'IfLen(key)<>7Then
'Messagebox"你輸入的日期不符合,請重新輸入",,"提示"
'ExitSub
'EndIf
key=Inputbox$("请输入要统计的年份,如:
2006","统计年份")
IfLen(key)<>4Then
Messagebox"你输入的日期不符合,请重新输入",,"提示"
ExitSub
EndIf
'srchString="selectform='ecrecn'&"+"@contains(@text(releasedate1);'"+key+"')"+"&@contains(bmb;'"+"BUA')"+"&@contains(status;'"+"4')"
keyweek=Inputbox$("请输入要统计的第几周","统计第几周")
'searchfomula$=|selectform="设备维修状况"|
srchString="selectform='ecrecn'&"+"@contains(@text(releasedate1);'"+key+"')"+"&@contains(@text(week);'"+keyweek+"')"+"&@contains(bmb;'"+"BUA')"+"&@contains(status;'"+"4')"
Setdocoll=db.search(srchString,Nothing,0)
'Setdocoll=db.UnprocessedDocuments
coll=view.count
Ifcoll=""Then
Messagebox"沒有符合条件的数据,请确认你输入的条件是否正确"
ExitSub
Else
Messagebox"共有"+coll+"条符合条件的记录"
EndIf
'DimcollAsInteger
'coll=view.ftsearch(key,0)
'SetdocA=view.getfirstdocument
%ENDREM
DimfilenameAsString
DimfitemAsnotesitem
rows=2
cols=1
exapp.visible=True
SetdocA=view.getfirstdocument
DoWhileNotdocAIsNothing
exapp.statusbar="正在从Notes里导出数据,可能要一段时间,请等候....."
Forj=0ToUbound(view.columns)
Ifview.columns(j).ishidden=FalseThen
Ifview.columns(j).title<>""Then
filename=view.columns(j).itemname
Setfitem=docA.getfirstitem(filename)
exsheet.cells(rows,cols).value=fitem.text
EndIf
cols=cols+1
EndIf
Next
cols=1
rows=rows+1
SetdocA=view.GetNextDocument(docA)
Loop
'格式化excel表
exapp.rows("1:
1").select
exapp.selection.font.bold=True
exapp.range(exsheet.cells(1,1),exsheet.cells(rows,maxcols)).select
exapp.selection.font.name="Arial"
exapp.selection.font.size=9
exapp.selection.columns.autofit
exapp.referencestyle=1
exapp.range("A1").select
exapp.statusbar="数据导入完成"
EndSub
导出:
按时间段导出
注意:
本例中是域nian存放时间比较时一定要转化成文本型。
在本例中,没有转化,但nian设置的是文本域
SubInitialize
DimsAsNewNotesSession
DimdbAsNotesDatabase
DimviewAsNotesView
DimdocAsNotesDocument
DimexappAsVariant
DimexsheetAsVariant
DimexworkbookAsVariant
DimdocallAsNotesDocumentCollection
Setdb=s.CurrentDatabase
Setview=db.GetView("all")
Setexapp=createobject("excel.application")
exapp.referencestyle=2
exapp.statusbar="正在计算导出Excel,请稍后..."
exapp.workbooks.add
Setexsheet=exapp.workbooks
(1).worksheets
(1)
exsheet.name="TipTop零件编码申请"
DimrowAsInteger
DimcolAsInteger
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 常用命令 代码 设置
![提示](https://static.bdocx.com/images/bang_tan.gif)