生成WEB页面报表代码,Domino代码库,德仔网

代码语言
代码分类
【Domino】生成WEB页面报表
作者:entry / 发布于2014/7/25/ 1612

	Dim Session As NotesSession
	Dim Db As NotesDatabase
	Dim HttpDoc As NotesDocument

	

	Sub Initialize
	On Error Goto Errhandle
	
	Set Session = New NotesSession
	Set Db = Session.CurrentDatabase
	Set HttpDoc = Session.DocumentContext
	
	Dim View As NotesView
	Dim Vc As NotesViewEntryCollection
	Dim Entry As NotesViewEntry
	Dim i,flag
	
	Set View = Db.GetView("NewMeetRoomStat")
	Set Vc = View.GetAllEntriesByKey(HttpDoc.WeekDate(0))
	
	If (Vc.Count<1) Then Exit Sub
	Dim docArr() As NotesDocument
	Dim k,j,n
	Dim WeekDate As String
	Dim BeginDate As NotesDateTime
	Dim WeekSet(1 To 7) As String
	Dim DateSet(1 To 7) As String
	Dim RoomArr() As String
	Dim AmMeetArr() As String
	Dim PmMeetArr() As String
	Dim MeetHtml As String
	Dim MeetTime As String
	Dim strLeader As String
	Dim todayFlag As Variant
	Set Entry = Vc.GetNthEntry(1)
	Set BeginDate =New NotesDateTime (Entry.ColumnValues(6))
	todayFlag = False
	For n=1To 7
	 DateSet(n)=BeginDate.DateOnly
	 BeginDate.AdjustDay(1)
	Next
	WeekSet(1)="周一"
	WeekSet(2)="周二"
	WeekSet(3)="周三"
	WeekSet(4)="周四"
	WeekSet(5)="周五"
	WeekSet(6)="周六"
	WeekSet(7)="周日"
	MeetHtml = "<table border=1 cellspacing=0 cellpadding=5 borderColor=#B2D0C8><tr class=Title borderColor=#5F9FD4><td Width=15%><p style='text-align: right'>时间<p style='text-align: left'>地点</td>"
	For n=1 To 7
	 MeetHtml = MeetHtml + "<td colspan=2>"+WeekSet(n)+""+DateSet(n) +""+"上午"+"&nbsp&nbsp&nbsp&nbsp"+"下午</td>"
	Next
	MeetHtml = MeetHtml + "</tr>"
	
	For n=0 To Ubound(HttpDoc.MeetRoom)
	 Redim AmMeetArr(14) As String
	 Redim PmMeetArr(14) As String
	 Redim Preserve RoomArr(n) As String
	 RoomArr(n) = HttpDoc.MeetRoom(n)
	 MeetHtml = MeetHtml + "<tr><td Width=15%>" + RoomArr(n) + "</td>"
	 For i=1 To vc.Count
	 On Error Resume Next
	 Set Entry = Vc.GetNthEntry(i)
	 On Error Goto Errhandle
	 If (Entry.IsValid) Then
	 If (Entry.ColumnValues(3) = RoomArr(n)) Then
	 For j=1 To 7
	 If(Entry.ColumnValues(7) = DateSet(j)) Then
	 If (Format(Entry.ColumnValues(1),"AM/PM") = "AM") Then
	 If(AmMeetArr(2*j-1)="") Then
	 AmMeetArr(2*j-1)=Entry.ColumnValues(4)
	 Else
	 AmMeetArr(2*j-1)=AmMeetArr(2*j-1)+""+Entry.ColumnValues(4)
	 End If
	 Else
	 If(AmMeetArr(2*j)="") Then
	 AmMeetArr(2*j)=Entry.ColumnValues(4)
	 Else
	 AmMeetArr(2*j)=AmMeetArr(2*j)+""+Entry.ColumnValues(4)
	 End If
	 End If
	 End If
	 Next
	 End If
	 End If
	 Next
	 For j=1 To 14
	 strLeader=AmMeetArr(j)
	 If(strLeader="") Then
	 MeetHtml=MeetHtml+"<td></td>"
	 Else
	 MeetHtml=MeetHtml+"<td bgColor=#00FA9A>"+strLeader+"</td>"
	 End If
	 Next
	 MeetHtml=MeetHtml+"</tr>"
	Next
	
	MeetHtml = MeetHtml + "</table>"
	
	HttpDoc.MeetRoomHtml = MeetHtml
	
	Exit Sub
	Errhandle:
	ErrLog("(本库)会议室使用统计|MeetRoomStat")
	Exit Sub
	
	End Sub
试试其它关键字
　生成报表　
同语言下
可能有用的
entry贡献的其它代码(10)