منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم ورحمة الله وبركاته
السادة مهندسين ومبرمجين وخبراء موقعنا الكريم
أولاً انا خبرتي بالفيجوال بسيك تعتبر صفر وقد حملت خطوات عمل برنامج لسوبر ماركت من اليوتيوب والان عندي مشكله لا افهمها عند الضغط علي اي صف في DataGridView لا تظهر البيانات في الخانات الموجودة بالفورم الذي ادخل فيه البيانات مع انني كتبت نفس الاكواد كما بالفيديو الذي نقلت منه التصميم فهو يعمل معه ولا يعمل معي

يوجد بالمرفقات صور لكود DataGridView Selection_Changed الذي استخدمته والشكل بعد الكود

يجب ان توضح بعض الامور حتى تتم مساعدتك نصف الصور لا يظهر ارجو منك التوضيح 
نوع قاعدة البيانات 
الاتصال بالكود ام بالمعالج 
واذا ارفقت المثال يكون افضل

(15-11-16, 05:29 PM)العواد الصغير كتب : [ -> ]يجب ان توضح بعض الامور حتى تتم مساعدتك نصف الصور لا يظهر ارجو منك التوضيح 
نوع قاعدة البيانات 
الاتصال بالكود ام بالمعالج 
واذا ارفقت المثال يكون افضل

شكراً للرد السريع

قمت بانشاء قاعدة بيانات اكسيس 2010
قمت بالاتصال بالكود


واليك المشروع بالمرفقات

استخدمت الحدث ماوس كليك للداتا غريد يمكنك ان تستخدم اي حدث اخر كما تحب من الداتا غريد
وهذا هو الكود 
 Private Sub DataGridView1_MouseClick(sender As Object, e As MouseEventArgs) Handles DataGridView1.MouseClick
        Try
            Useradress.Text = DataGridView1.CurrentRow.Cells("Useraddress").Value
            Userdate.Value = DataGridView1.CurrentRow.Cells("UserDate").Value
            UserforProgramCheckBox.Checked = DataGridView1.CurrentRow.Cells("UserforProgramm").Value

            Userfullname.Text = DataGridView1.CurrentRow.Cells("Userfullname").Value

            UserGender.Text = DataGridView1.CurrentRow.Cells("UserGender").Value
            UserID.Text = DataGridView1.CurrentRow.Cells("UserID").Value

            Userjob.Text = DataGridView1.CurrentRow.Cells("Userjob").Value

            UserPassword.Text = DataGridView1.CurrentRow.Cells("UserPassword").Value

            Userphone.Text = DataGridView1.CurrentRow.Cells("UserPhone").Value

            UserTime.Text = DataGridView1.CurrentRow.Cells("Usertime").Value

            UserUser.Text = DataGridView1.CurrentRow.Cells("UserUser").Value

        Catch ex As Exception

        End Try

    End Sub

كل الشكر والتقدير لك اخي العواد الصغير

تم حل المشكله بواسطتك

وشكراً علي الردود السريعة

وسأعود لأتعلم منكم مسئولين هذا الموقع العظيم

وشكراً

أحمد العرب