07-06-18, 03:45 AM
07-06-18, 03:50 AM
ارفق المشروع مع قاعدة البيانات
لاعمل الكود مع صورة للناتج
حتى اقوم بكتابة الاكواد اللازمة هنا مع الشرح
تحياتى لك
07-06-18, 06:23 AM
اتمنى أن تصدق أخى أن المشكلة لديك أنت
المرفق به نفس مثال الأكسس و لكن على قاعدة بيانات السيكوال سيرفر
مع استبدال الطريفة الثالثة باستعلام جديد أبسط من الاستعلام الاول
جربها لديك و ان لم تعمل فارفق الملف الذى تعمل عليه لأن المشكلة به بالتأكيد
المرفق به نفس مثال الأكسس و لكن على قاعدة بيانات السيكوال سيرفر
مع استبدال الطريفة الثالثة باستعلام جديد أبسط من الاستعلام الاول
جربها لديك و ان لم تعمل فارفق الملف الذى تعمل عليه لأن المشكلة به بالتأكيد
07-06-18, 08:28 PM
تم العمل والحمد لله
يتبقي لنا linq
للعلم الخطأ الظاهر عندي هو خطأ املائي واضح في حرف او علامة
المهم حضرتك الكود الخاص بالكيويري كان به نفس العلامات حذفت المسافات ثم جعلت الكود بجوار بعض
اشتغل والحمد لله
واضح ان مشكلة لنك هكذا بذلت فيها وقت وجهد غير عادي من امس ولم اصل
كيف يمكن الكتابة بحيث لا يظهر الحطا
صورة الخطا الاملائي
يتبقي لنا linq
للعلم الخطأ الظاهر عندي هو خطأ املائي واضح في حرف او علامة
المهم حضرتك الكود الخاص بالكيويري كان به نفس العلامات حذفت المسافات ثم جعلت الكود بجوار بعض
اشتغل والحمد لله
واضح ان مشكلة لنك هكذا بذلت فيها وقت وجهد غير عادي من امس ولم اصل
كيف يمكن الكتابة بحيث لا يظهر الحطا
صورة الخطا الاملائي
08-06-18, 01:20 AM
ارفق ملفك للتعديل عليه
08-06-18, 04:34 AM
الملف زلاحظ حضرتك العلامات الزرقاء
08-06-18, 04:58 AM
تم مراجعة المرف المرفق ولا يوجد اى مشكلة فى الاكواد
الا فقط فى السطر رقم 151
عند الجزء
كود :
WHERE T1.[itcod]= " & ComboBox1.SelectedValue & ""قم بتغييره الى التالى
كود :
WHERE T1.[itcod]= '" & ComboBox1.SelectedValue & "'"حتى يعمل Button1 بدون اى مشكلة
تحياتى لك
وتمنياتى لك التوفيق
08-06-18, 01:24 PM
(08-06-18, 04:34 AM)atefkhalf2004 كتب : [ -> ]الملف زلاحظ حضرتك العلامات الزرقاء
لا توجد بالملف أى مشاكل
و هذا يعنى أن هناك مرجع ناقص عندك
تأكد من الاشياء المحددة بالصور
[attachment=18429]
[attachment=18430]
ملحوظة :-
استخدم الاستعلام الجديد فهو ابسط و اسهل فى التعامل
كود :
Dim sql As String = "SELECT Q.atefinv, Q.itcod, Q.invsun, Q.purqu, Q.invqu, " &
"(SELECT SUM([purqu]-[invqu]) FROM [adraseed] WHERE [itcod]=[Q].[itcod] AND [atefinv] <= [Q].[atefinv]) AS Balance " &
"FROM (SELECT * FROM adraseed) AS Q INNER JOIN adraseed ON Q.atefinv = adraseed.atefinv " &
If(Chk_code.Checked, "WHERE Q.[itcod]= " & txtcode.Text, "")08-06-18, 03:40 PM
حضرتك المرجع هو الذي لم يكن وتم اضافته
وما زال الخطأ
للعلم استخدم فيجوال 2008 ويندوز 7 سكول 2008
وما زال الخطأ
للعلم استخدم فيجوال 2008 ويندوز 7 سكول 2008
08-06-18, 04:08 PM
انت جهازك يعمل بنظام
32 او 64
مع العلم عند تحميل الملف
واختباره كان الملف يعمل بدون اى مشكلة كما تظهر لديك
فى الصورة للخط الازرق علماً استخدم 2015
فقط ما كان بحاجة الى تعديله ما ذكرته بالاعلى مسبقاً
ومن بعدها تم العمل والتنقل بدون اى مشكلة
تحياتى لك