السلام عليكم ورحمة الله وبركاته
في البرنامج المرفق توجد قاعدة بيانات أكسس 2007 وبها جدولين: الأول خاص بالـ Users ، والثاني خاص بالبيانات Data، الغريب عند فتح البرنامج ابتداءً من شاشة الدخول وحتى شاشة إدخال البيانات يظهر في أداة DataGridView جدول Users وجدول Data معاً، وعند فتح البرنامج على شاشة إدخال البيانات مباشرة يظهر جدول Data فقط، نرجو الإفادة بموضع الخلل، وجزاكم الله خيراً
رابط تحميل البرنامج:
https://up.traidnt.net/SIC1Oj/Test_App
في Module1 انت معرف dt واحد وتستخدمه في المشروع كله
ففي فورم Login قمت بتعبئة بيانات الجدول Users
وبعدين لما رحت فاتح الفورم Application_Definition طلبت Load_Data
واللي تنفذ كود في Module1 لتعبئة أيضا بيانات الجدول Data
والنتيجة حتكون بيانات جدولين في dt
اعمل dt.Clear قبل أي عملية Fill ل dt
(29-09-17, 08:07 PM)wale90 كتب : [ -> ]في Module1 انت معرف dt واحد وتستخدمه في المشروع كله
ففي فورم Login قمت بتعبئة بيانات الجدول Users
وبعدين لما رحت فاتح الفورم Application_Definition طلبت Load_Data
واللي تنفذ كود في Module1 لتعبئة أيضا بيانات الجدول Data
والنتيجة حتكون بيانات جدولين في dt
اعمل dt.Clear قبل أي عملية Fill ل dt
لو رجعت إلى الـ Module ستجد عملية dt.Clear لكل عملية تحميل سواء كان Data أو Users
كود :
Public Sub Load_Account()
dt.Clear()
da = New OleDbDataAdapter("select * from Users", con)
da.Fill(dt)
End Sub
كود :
Public Sub Load_Data()
dt.Clear()
da = New OleDbDataAdapter("select * from Data", con)
da.Fill(dt)
End Sub
عفوا لم انتبه،
أضف dt.Columns.Clear بعد dt.Clear ليصبح
dt.Clear
dt.Columns.Clear
السبب أن dt.Clear تمسح أسطر البيانات فقط ولا تمسح الأعمدة
لهذا ترى اسماء الأعمدة ولكن بدون بيانات
(29-09-17, 09:17 PM)wale90 كتب : [ -> ]عفوا لم انتبه،
أضف dt.Columns.Clear بعد dt.Clear ليصبح
dt.Clear
dt.Columns.Clear
السبب أن dt.Clear تمسح أسطر البيانات فقط ولا تمسح الأعمدة
لهذا ترى اسماء الأعمدة ولكن بدون بيانات
للأسف لم يفلح معي هذا الحل، مشكور على كل حال.
مع أنه فلح الحل عندي، لكن العفو.
(29-09-17, 09:59 PM)wale90 كتب : [ -> ]مع أنه فلح الحل عندي، لكن العفو.
شكراً لك على كل حال، والملف لا يعمل عندي، على الرغم أني أعمل على فيجوال 2013، اختلاف النسخ والإصدارات قد يضطرني إلى أن أتركه رغم أني أحب العمل عليه، فهو برنامج يشعر الإنسان بقيمته أينما وجد، ويساعد الإنسان في عمله أياً كان العمل، لك جزيل الشكر.