07-09-15, 06:27 AM
سلام
بقي مسالت الحفظ، الله يعينك اجتهد فيها، فان لم تستطع فالاخوه موجودون،
بقي مسالت الحفظ، الله يعينك اجتهد فيها، فان لم تستطع فالاخوه موجودون،
كود :
Dim sql As String =
" SELECT [Reports].[code] AS [code], " &
" [table1].[name] AS [name], " &
" [Reports].[count] AS [count], " &
" [Reports].[total1] AS [total1], " &
" [Reports].[total2] AS [total2], " &
" NOW() AS [date], " &
" [table1].[department] AS [department] " &
" " &
" FROM [table1] " &
" " &
" INNER JOIN " &
" ( " &
" " &
" SELECT [Reports].[code] AS [code], " &
" COUNT([Reports].[code]) AS [count], " &
" SUM([total]) AS [total1], " &
" SUM(SWITCH(VAL([total])>=" & 100 & " AND VAL([total])<=" & 200 & "," & 500 & ", " &
" VAL([total])>=" & 201 & " AND VAL([total])<=" & 300 & "," & 700 & ", " &
" VAL([total])>=" & 301 & " AND VAL([total])<=" & 400 & "," & 1000 & ", " &
" VAL([total])>=" & 401 & " AND VAL([total])<=" & 500 & "," & 2000 &
" )) AS [total2] " &
" " &
" FROM [Reports] " &
" " &
" WHERE (DATEDIFF('d',[data1],[data 2]) = 3 ) " &
" " &
" " &
" GROUP BY [Reports].[code] " &
" " &
" HAVING (SUM([total]) >= 700 ) " &
" AND (COUNT([Reports].[code]) >= 4 ) " &
" " &
" ) AS [Reports] " &
" " &
" ON [Reports].[code] = [table1].[code] "متغيب
