tailieunhanh - Beginning Visual Basic 2005 Databases phần 9

Nhấp vào hộp Tên lớp kết hợp và chọn pasteToolStripButton; và trong hộp Phương pháp kết hợp Name, chọn sự kiện Click. Thêm đoạn mã sau vào thủ tục Click vào pasteToolStripButton_: | Chapter 16 TimeSheets . - 1 blnEvenRow Not blnEvenRow If blnEvenRow Then tr class EvenRow Else tr class OddRow End If If strReport TimesheetsDue Then td class ReportText a href mailto _ TimeSheets .Rows intIndex .Item _ Email subject Timesheet Due body Your timesheet _ for week ending date _ is due. Please submit your timesheet for approval. _ TimeSheets .Rows intIndex .Item _ UserName a td Else td class ReportText _ TimeSheets .Rows intIndex .Item _ UserName td End If td class ReportText align right _ _ TimeSheets .Rows intIndex .Item TotalHours td td nbsp td tr Next table End Sub 11. The last procedure that you need to add is the ProcessLongReport procedure. This procedure will be called to process the report data for the Timesheets Month-to-Date Timesheets Quarter-to-Date and Timesheets Year-to-Date reports. Add the following code to create this procedure Private Sub ProcessLongReport table cellspacing 0 cellpadding 3 _ border 0 tr class ReportHeader td nowrap width 200px Employee td td nowrap Total Hours td td width 5px nbsp td td nowrap Week Ending Date td td width 5px nbsp td td nowrap Approval Date td td width 100 nbsp td tr For intIndex As Integer 0 To _ TimeSheets . - 1 blnEvenRow Not blnEvenRow 588 Accessing a Web Service If blnEvenRow Then tr class EvenRow Else tr class OddRow End If td class ReportText _ TimeSheets .Rows intIndex .Item UserName td td class ReportText align right _ TimeSheets .Rows intIndex .