07-09-15, 01:18 AM
07-09-15, 05:08 AM
هل من ايجاد اكواد تساعد في ذلك ؟
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] "07-09-15, 10:09 AM
حتى اللي يشتي برنامج ما يسوي كذا
ولا يلقى خدمة بالشكل ذا
صحيح ناس تبذل تبذل لا تريد لا جزاء ولا شكورا
الاستاذ الطلب اكيد تحتاج فترة نقاهة :-)
الاستاذ خضر اتوقع باقي نشيط
صاحب الموضوع
بسألك انت جربت تستخدم الكي بورد في مشروعك؟
تراه سؤال بريء برضو
:$
ولا يلقى خدمة بالشكل ذا
صحيح ناس تبذل تبذل لا تريد لا جزاء ولا شكورا
الاستاذ الطلب اكيد تحتاج فترة نقاهة :-)
الاستاذ خضر اتوقع باقي نشيط
صاحب الموضوع
بسألك انت جربت تستخدم الكي بورد في مشروعك؟
تراه سؤال بريء برضو
:$
07-09-15, 10:11 AM
الله يعطيك العافيه الاخ الطالب ............. عندي تعديل صغير بس ................. انا اضفت حقل جديد على الجدول report بمسمى date3 .... وابقى اضيفو في الكود نفس الشرط هذا ............" (([data1],[data 2]) = 3 )
بس يكون اضافي وهذا الشرط الجديد
([data1],[data 3]) = 3 )
كيف اركب الشرط الجديد داخل الكود وجزاااااااك الله كل خير مع تمنياتي لك بالتوفيق .....
كيف يكون الكود كذلك ؟؟؟
([data1],[data 3]) = 2 ) & (([data1],[data 3]) = 3 )
ويرجى من باقي الاخوان المساعدة بكود الحفظ للبيانات المجمودة في form2 >>>>> على SaveDataGridView بمجرد الضغط على ذر حفظ وجزيتم خيرا ووفقكم الله
بس يكون اضافي وهذا الشرط الجديد
([data1],[data 3]) = 3 )
كيف اركب الشرط الجديد داخل الكود وجزاااااااك الله كل خير مع تمنياتي لك بالتوفيق .....
كيف يكون الكود كذلك ؟؟؟
([data1],[data 3]) = 2 ) & (([data1],[data 3]) = 3 )
ويرجى من باقي الاخوان المساعدة بكود الحفظ للبيانات المجمودة في form2 >>>>> على SaveDataGridView بمجرد الضغط على ذر حفظ وجزيتم خيرا ووفقكم الله
07-09-15, 11:25 AM
سلام
تاكد من المسافه في اسماء الحقول، والافضل عدم وجود مسافات، مثل ما لاحظتها عندك في date 2 مع مراجهت الكود والتعديل من اجل التطابق
موفقين
تاكد من المسافه في اسماء الحقول، والافضل عدم وجود مسافات، مثل ما لاحظتها عندك في 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] " &
" "موفقين
07-09-15, 10:42 PM
مشكور جزاك الله خير ...................اذا حابب يظهر في حقل ال date التاريخ فقط بدون الساعه مع التاريخ ...............كيف يكون الكود اخي الطالب ؟؟؟؟
08-09-15, 04:01 AM
كيف احفظ التاريخ فقط من غير زمن اخي الطالب
08-09-15, 06:20 AM
سلام
ممكن تعدل خاصائص العمود date،
تروح للخاصيه DefaultCellStyle ومن داخلها تروح للخاصيه Format وتضع فيه حرف d الصغير طبعا ومعناه Short Date
او عن طريق الكود،
تضع هذا السطر قبل عرض الفورم الثاني يعني قبل Form2.Show واذا تريد تضعه في حدث تحميل الفورم Form2_Load ضعه من غير كلمت Form2
وتاكد من رقم ترتيبه (والترتيب يبدا بالصفر وليس واحد يعني 5 معناه سادس عمود)
موفقين
ممكن تعدل خاصائص العمود date،
تروح للخاصيه DefaultCellStyle ومن داخلها تروح للخاصيه Format وتضع فيه حرف d الصغير طبعا ومعناه Short Date
او عن طريق الكود،
تضع هذا السطر قبل عرض الفورم الثاني يعني قبل Form2.Show واذا تريد تضعه في حدث تحميل الفورم Form2_Load ضعه من غير كلمت Form2
وتاكد من رقم ترتيبه (والترتيب يبدا بالصفر وليس واحد يعني 5 معناه سادس عمود)
كود :
Form2.SaveDataGridView.Columns(5).DefaultCellStyle.Format = "d"موفقين
08-09-15, 06:28 AM
السلام عليكم
اشكر كل من ساهم في هذا الموضوع
الرجاء وضع الاستفسارات الجديدة في مواضيع جديدة لكي تعم الفائدة على الجميع
يعطيكم العافية
اشكر كل من ساهم في هذا الموضوع
الرجاء وضع الاستفسارات الجديدة في مواضيع جديدة لكي تعم الفائدة على الجميع
يعطيكم العافية