Archive for December, 2008
Lotus 动态表格 LS代码
记录陆君风的一个动态表格代码，列是固定的，行数跟着变量变化。 Set doc=New NotesDocument(db) doc.form="SRMReport" doc.Title="By Function" doc.ReportMonth=YearMonth Set ritem = New NotesRichTextItem( doc, "ReportTable" ) FunArray=Evaluate({@Unique(@DbColumn( "" ;"" ; "vbyFunctionReport" ; 2 ))}) Call InitialStyles Call ritem.AppendTable(Ubound(FunArray)+3, 16, , , styles) Set rtnav = ritem.CreateNavigator Call rtnav.FindFirstElement(RTELEM_TYPE_TABLECELL) Call ritem.BeginInsert(rtnav) Call ritem.AppendText("Function") Call ritem.EndInsert Call rtnav.FindNextElement(RTELEM_TYPE_TABLECELL) Call ritem.BeginInsert(rtnav) Call ritem.AppendText("Total HC") Call ritem.EndInsert Sub InitialStyles Set styles(1) = session.CreateRichTextParagraphStyle styles(1).Alignment = ALIGN_CENTER styles(1).LeftMargin = 0 styles(1).FirstLineLeftMargin = 0 styles(1).RightMargin = RULER_ONE_CENTIMETER * 2.0 Set [...]
Posted: December 5th, 2008 under Lotus Domino CS开发.
Comments: none
GetUserDirectoryExample.LSS
‘LS.UserDirectoryEx.BE.6: Option PublicOption Declare %REM ************************** Purpose **************************This little script library contains a function and some C API calls that allow you todetermine the user’s personal directory in Windows – where their things like the Document andSettings directories are, etc. Very handy. There are three Win32 C API calls in Declarations that are called in [...]
Posted: December 5th, 2008 under Lotus Domino BS开发.
Comments: none
通过几句歌声旋律找歌曲的网站
比较强悍的一个站点。 http://www.midomi.com/
Posted: December 3rd, 2008 under 网址精选.
Comments: none