[Waleed Al-Khamesy]

السلام عليكم ورحمة الله وبركاته
في البرنامج المرفق توجد قاعدة بيانات أكسس 2007 وبها جدولين: الأول خاص بالـ Users ، والثاني خاص بالبيانات Data، الغريب عند فتح البرنامج ابتداءً من شاشة الدخول وحتى شاشة إدخال البيانات يظهر في أداة DataGridView جدول Users وجدول Data معاً، وعند فتح البرنامج على شاشة إدخال البيانات مباشرة يظهر جدول Data فقط، نرجو الإفادة بموضع الخلل، وجزاكم الله خيراً

رابط تحميل البرنامج:
https://up.traidnt.net/SIC1Oj/Test_App

[wale90]

في Module1 انت معرف dt واحد وتستخدمه في المشروع كله

ففي فورم Login قمت بتعبئة بيانات الجدول Users

وبعدين لما رحت فاتح الفورم Application_Definition طلبت Load_Data
واللي تنفذ كود في Module1 لتعبئة أيضا بيانات الجدول Data

والنتيجة حتكون بيانات جدولين في dt

اعمل dt.Clear قبل أي عملية Fill ل dt

[Waleed Al-Khamesy]

(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

[wale90]

عفوا لم انتبه،
أضف dt.Columns.Clear بعد dt.Clear ليصبح
dt.Clear
dt.Columns.Clear

السبب أن dt.Clear تمسح أسطر البيانات فقط ولا تمسح الأعمدة
لهذا ترى اسماء الأعمدة ولكن بدون بيانات

[Waleed Al-Khamesy]

(29-09-17, 09:17 PM)wale90 كتب : عفوا لم انتبه،
أضف dt.Columns.Clear بعد dt.Clear ليصبح
dt.Clear
dt.Columns.Clear

السبب أن dt.Clear تمسح أسطر البيانات فقط ولا تمسح الأعمدة
لهذا ترى اسماء الأعمدة ولكن بدون بيانات

للأسف لم يفلح معي هذا الحل، مشكور على كل حال.

[wale90]

مع أنه فلح الحل عندي، لكن العفو.

[Waleed Al-Khamesy]

(29-09-17, 09:59 PM)wale90 كتب : مع أنه فلح الحل عندي، لكن العفو.

شكراً لك على كل حال، والملف لا يعمل عندي، على الرغم أني أعمل على فيجوال 2013، اختلاف النسخ والإصدارات قد يضطرني إلى أن أتركه رغم أني أحب العمل عليه، فهو برنامج يشعر الإنسان بقيمته أينما وجد، ويساعد الإنسان في عمله أياً كان العمل، لك جزيل الشكر.

[Abu Ehab]

هنــــــــــــــــــــــــــا  
مثال  أيام البيسك قبل 7 سنوات