01-09-20, 09:08 PM (آخر تعديل لهذه المشاركة : 01-09-20, 09:11 PM {2} بواسطة منه.)
السلام عليكم ورحمه الله وبركاته
ممكن كود تحقق إذا كانت الخليه المحدده أو اي حبه تحتها إذا كانت true or false
انا جربت اكواد كتير ومنها الكود ده
If datagridviw1.currentrow.calls.value=true then
(01-09-20, 09:08 PM)منه كتب : السلام عليكم ورحمه الله وبركاته
ممكن كود تحقق إذا كانت الخليه المحدده أو اي حبه تحتها إذا كانت true or false
انا جربت اكواد كتير ومنها الكود ده
If datagridviw1.currentrow.calls.value=true then
بس بيطلع ايرور
وعليكم السلام ورحمة الله وبركاته
لابد من تحديد العمود، فهذا الكود غير منطقي،
ويجب نسخ الكود من المشروع كما هو ووضعه في السؤال دون تعديل
أيضا وضع تفاصيل الايرور مع صورة له
بالنسبة ل DataGridView
تحديد العمود يكون في داحل أقواس Cells مثلا العمود الثالث:
(Cells(2
للحصول على المساعدة بشكل سريع
لابد من وضع تفاصيل المشكلة مع صور للأخطاء مع نسخ الكود كما هو دون تعديل ودون كتابته يدويا في موضوع المنتدى
01-09-20, 11:05 PM (آخر تعديل لهذه المشاركة : 01-09-20, 11:10 PM {2} بواسطة منه.)
اولا شكرا لحضرتك على تفهم الموضوع
ثانياً انا فعلا كاتب الاكواد كما تفضلت وشرحتها لكن هنا في المنتدي هناك عائق في مشكله الكتابه باللغه الانجليزيه انا بعاني من مشكله اني عايزه كود تحقق إذا كانت الخليه المحدده ده مثلا true or false هو مفيش مشكله هجائيه يتم التعليق عليها من البرنامج لكن عندما اشغل البرنامج عنا يحدث المشكله
ده صوره الايرور ال بيطلع ولو ممكن تعملي علي الكود أو تكتبلي كود تاني يكون افضل
ده صوره الايرور ال بيطلع ولو ممكن تعملي علي الكود أو تكتبلي كود تاني يكون افضل
الخاصية displayMember هي من نوع String فإذا استخدم معها Count فإنها ستعيد عدد أحرف قيمتها
يبدو أن المشروع يستخدام أدوات خاصة،
وذلك من ملاحظتي للإسم ListBoxControl1،
لأن الأداة المعروفة اسمها عادة هو ListBox1
بالنسبة للكود يمكن نسخه من الفيجوال مباشرة
عن طريق تحديده ثم عمل نسخ بالضغط على Ctrl+C
ثم في الرد يتم عمل لصق بالضغط على Ctrl+V
فلا داعي للكتابة التي قد تتسبب في عدم فهم المشكلة
بالنسبة للخطأ الأخير فهذا هو التعديل
PHP كود :
If DataGridView1.CurrentRow IsNot Nothing Then
Dim c3 = DataGridView1.CurrentRow.Cells(3).Value
If (c3 IsNot Nothing) Then
If (Not IsDBNull(c3)) Then
If c3 = True Then MsgBox(c3) End If
End If
End If
End If
واخيرا لو يتم وضع المشروع يكون أفضل للمعاينة ومعرفة المشكلة وثم تصحيحها
المشكلة ليست في الكود المشكلة في فهم المطلوب عمله اولا قبل البحث على كود لانجاز المهمة ، تجريب الاكواد ليس خيارا ابدا عند تطوير برنامج نظيف وعملي ، يجب فهم كل حرف قبل كتابته ، اي سطر كود غير مفهوم بشكل كامل هو عبارة عن قنبلة موقوتة في الكود
مثلا الخاصية CurrentRow تمثل الصف الحالي ، وكلمة الحالي تعني اخر صف تم الضغط عليه وفقط ، صف وحيد فقط
من فهمك لذلك نجد ان هذه الخاصية غير مناسبة للمطلوب في البرنامج
الخاصية المناسبة هي Rows والتي تمثل الاعمدة كلها ، نقوم باللف عليها ب For Each ونحدد شرط ان تكود الخلية الثالثة من الصف بقيمة True واذا تحقق نقوم باضافة قيمة الخلية الاولى الى نص الاستعلام :
كود :
Dim Selects As String
For Each R As DataGridViewRow In DataGridView1.Rows 'نلف على عناصر الجريد فيو كلها
Dim CheckRow As DataGridViewCheckBoxCell = R.Cells(2) 'خليه الصح وخطأ
If CheckRow.Value Then 'اذاكانت الخلية صح
Dim TblCoulmnName As String = R.Cells(0).Value 'العنصر من العمود
If String.IsNullOrWhiteSpace(Selects) Then
Selects = TblCoulmnName 'اول عمود
Else
Selects &= "," & TblCoulmnName 'اضف العمود
End If