01.Protected Sub Button3_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button3.Click
02. Dim dtReader As SqlDataReader
03. For i As Integer = 0 To ArrDep.Length - 1
04. If ArrDep(i) <> "" Then
05. strSQL = "select Employee.Department_Name,Employee.Employee_ID,Employee.Employee_FirstName,Employee.Employee_LastName," +
06. "Time.Card_Date,Emp_ShiftWork.WorkTime_ID,Time.Card_Day_Name,Time.Card_Time_IN,Time.Card_Time_Out,Time.Card_Over_Time," +
07. " Time.Card_Time_Late,'' AS Vacation_Name From Employee LEFT Join Time ON Employee.Employee_ID = Time.Employee_ID LEFT JOIN Emp_ShiftWork ON" +
08. " Employee.Employee_ID = Emp_ShiftWork.Employee_ID AND Time.Card_Date = Emp_ShiftWork.WorkTime_Date where Employee.Employee_Status = 'TRUE' AND Employee.Department_Name = '" & ArrDep(i) & "'AND Time.Card_Date = '" & Convert.ToString(call1.SelectedDate) & "'" +
09. " UNION" +
10. " select Employee.Department_Name,Employee.Employee_ID,Employee.Employee_FirstName,Employee.Employee_LastName," +
11. " Emp_Vacation.Vacation_Date AS Card_Date,'' AS WorkTime_ID,'' AS Card_Day_Name,'' AS Card_Time_IN,'' AS Card_Time_Out," +
12. " '' AS Card_Over_Time,'' AS Card_Time_Late,Vacation.Vacation_Name From Employee LEFT Join Emp_Vacation ON" +
13. " Employee.Employee_ID = Emp_Vacation.Employee_ID LEFT JOIN Vacation ON Emp_Vacation.Vacation_ID = Vacation.Vacation_ID" +
14. " where Employee.Employee_Status = 'TRUE' AND Employee.Department_Name = '" & ArrDep(i) & "' AND Emp_Vacation.Vacation_Date = '" & Convert.ToString(call1.SelectedDate) & "'"
15.
16. objCmd = New SqlCommand(strSQL, objConn)
17. dtReader = objCmd.ExecuteReader()
18.
19.
20. myGridView.DataSource = dtReader
21. myGridView.DataBind()
22.
23. dtReader.Close()
24. dtReader = Nothing
25. End If
26. Next
27. End Sub
Load balance : Server 03
