With the new era of mobile computing, smartphones and tablets, wireless communications and cloud services, the USDA sought to take advantage of a mobilized workforce and the blurring lines between personal and corporate computing resources.
iNumCols = 4 theRow = 3 TheTO = rs!To oSheet.Cells(3, 1).Value = TheTO TheSTOname = rs!STO oSheet.Cells(3, 2).Value = TheSTOname TheStaffName = rs!TEAMName oSheet.Cells(3, 3).Value = TheStaffName TheDesc = rs!actdesc oSheet.Cells(3, 4).Value = TheDesc Do Until rs.EOF If rs!ToDesc = TheTO Then If rs!STOName = TheSTOname Then If TheStaffName = rs!TEAMName Then rs.MoveNext Else theRow = theRow + 1 oSheet.Cells(theRow, 3).Value = rs!TEAMName TheStaffName = rs!TEAMName rs.MoveNext End If Else theRow = theRow + 1 oSheet.Cells(theRow, 2).Value = rs!STOName TheSTOname = rs!STOName rs.MoveNext End If Else theRow = theRow + 1 oSheet.Cells(theRow, 1).Value = rs!ToDesc TheTO = rs!ToDesc rs.MoveNext End If skip: Loop
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
22 Experts available now in Live!