ما الكود المقابل (نقل الكود من DataGridView_CellClick إلى Button)

السلام عليكم ورحمة الله وبركاته

أخي الكريم ......... إستبدل e.ColumnIndex الخاصة بالحدث على الشكل التالي :

DataGridView1.CurrentCell.ColumnIndex

السلام عليكم ورحمة الله وبركاته

السيد الفاضل

للاسف اعطي رسالة خطأ عند اول جملة DataGridView1.CurrentCell.ColumnIndex

السلام عليكم ورحمة الله وبركاته

أخي الكريم الكود صحيح 100% ، ممكن أخي الكريم تبين لنا ما هي رسالة الخطأ ؟

السلام عليكم ورحمة الله وبركاته

atefkhalf2004 كتب:

السادة الافاضل

هذا الكود يغمل داخل الحدث celclick داخل الجريد

طيف اضع هذا الكود داخل زر امر button

او

كيف اضعه داخل الجريد ويتم تنقيذه بمجرد ظهر الفورم

علما بانني جربت الاحداث التي اعرفها مثل focus

Private Sub DataGridView1_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick

'Select Case e.ColumnIndex

' Case 4 To 7

' If IsDBNull(DataGridView1.Rows(DataGridView1.CurrentRow.Index).Cells(e.ColumnIndex).Value) Then

' DataGridView1.Rows(DataGridView1.CurrentRow.Index).Cells(e.ColumnIndex).Value = "*"

' End If

'End Select

End Sub

السلام عليكم ورحمة الله وبركاته

يبدو أنك تريد استبدال كل الخلايا الفارغة بعلامة *

وتريد تنفيذ هذا الأمر بمجرد تحميل النافذة أو حتى بالضغط على زر أمر

إذا كان ذلك كذلك فأنت تحتاج لعمل حلقة تكرارية بعدد صفوف الداتا جريد وداخل كل حلقة تكرارية يكون داخلها حلقة تكرارية أخرى بعدد الأعمدة

ثم تختبر كل خلية بواسطة رقم الصف ورقم العمود وتستبدلها إذا كانت فارغة

وأترك لك محاولة كتابة الكود

أرجو أن يكون في هذا الكلام إفادة لك

والسلام عليكم ورحمة الله وبركاته

زالله عملت اللي حضرتك قلت عليه

لكت لا يضف في لسطر الاول ورقمه صفر

رغم الكود بدايته كالتالي

for i=0 to me.datagridview1.rows(i).count-1

for j=o to me.datagridview1.columns(j)-1

السلام عليكم ورحمة الله وبركاته

أرجو أن يفيدك الكود التالى

مع العلم أننى تعمدت تأخير الكود حتى تحاول بنفسك أولاً لأن ذلك أفيد لك

فليس الغرض هو الوصول إلى الحل ولكن الغرض كيفية التفكير وكذلك تنمية مهارات الأعضاء

        For i As Integer = 0 To i < DataGridView1.Rows.Count

            For j As Integer = 0 To j < DataGridView1.Columns.Count

                If IsDBNull(DataGridView1.Rows(i).Cells(j).Value) Then

                    DataGridView1.Rows(i).Cells(j).Value = "*"

                End If

            Next

        Next

الاستاذ الفاضل

انه لا بد من تحديد اسماء الاعمدةويظهر التنفيذ في جميع الصوف ما عدا الصف الاول

ولذا ابحثعن حلول

واستخدمه من فترة

واضح

هذا هو الكود بالضبط الذي استخدمه

اتمني ان يكون هناك حل بديل