[الطالب]

سلام


تاكد من المسافه في اسماء الحقول، والافضل عدم وجود مسافات، مثل ما لاحظتها عندك في date 2 مع مراجهت الكود والتعديل من اجل التطابق

كود :

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  [code]        AS [code],                   " &
   "                COUNT([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 )       " &
   "           AND (DATEDIFF('d',[data1],[data 3]) = 4 )       " &
   "                                                           " &
   "         GROUP BY [code]                                   " &
   "                                                           " &
   "         HAVING (SUM([total]) >= 700 )                     " &
   "            AND (COUNT([code]) >= 4 )                      " &
   "                                                           " &
   "      ) AS [Reports]                               " &
   "                                                   " &
   " ON [Reports].[code] = [table1].[code]             " &
   "                                                   "

موفقين