منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] السلام عليكم ورحمه الله وبركاته - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] السلام عليكم ورحمه الله وبركاته (/showthread.php?tid=36282)



السلام عليكم ورحمه الله وبركاته - منه - 01-09-20

السلام عليكم ورحمه الله وبركاته
ممكن كود تحقق إذا كانت الخليه المحدده أو اي حبه تحتها إذا كانت true or false
انا جربت اكواد كتير ومنها الكود ده 
 If datagridviw1.currentrow.calls.value=true  then


  بس بيطلع ايرور


RE: السلام عليكم ورحمه الله وبركاته - L35 - 01-09-20

(01-09-20, 09:08 PM)منه كتب : السلام عليكم ورحمه الله وبركاته
ممكن كود تحقق إذا كانت الخليه المحدده أو اي حبه تحتها إذا كانت true or false
انا جربت اكواد كتير ومنها الكود ده 
 If datagridviw1.currentrow.calls.value=true  then


  بس بيطلع ايرور

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

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

بالنسبة ل DataGridView
تحديد العمود يكون في داحل أقواس Cells مثلا العمود الثالث:
(Cells(2

للحصول على المساعدة بشكل سريع
لابد من وضع تفاصيل المشكلة مع صور للأخطاء مع نسخ الكود كما هو دون تعديل ودون كتابته يدويا في موضوع المنتدى

حظا موفقا


RE: السلام عليكم ورحمه الله وبركاته - منه - 01-09-20

اولا شكرا لحضرتك على تفهم الموضوع
ثانياً انا فعلا كاتب الاكواد كما تفضلت وشرحتها لكن هنا في المنتدي هناك عائق في مشكله الكتابه باللغه الانجليزيه انا بعاني من مشكله اني عايزه كود تحقق إذا كانت الخليه المحدده ده مثلا true or false هو مفيش مشكله هجائيه يتم التعليق عليها من البرنامج لكن عندما اشغل البرنامج عنا يحدث المشكله

ده صوره الايرور ال بيطلع ولو ممكن تعملي علي الكود أو تكتبلي كود تاني يكون افضل

ده صوره الايرور ال بيطلع ولو ممكن تعملي علي الكود أو تكتبلي كود تاني يكون افضل


RE: السلام عليكم ورحمه الله وبركاته - L35 - 02-09-20

الخاصية 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 NothingThen

        If 
(Not IsDBNull(c3)) Then

            If c3 
True Then
                MsgBox
(c3)
 
           End If

 
       End If

 
   End If

End If 

واخيرا لو يتم وضع المشروع يكون أفضل للمعاينة ومعرفة المشكلة وثم تصحيحها


RE: السلام عليكم ورحمه الله وبركاته - Anas Mahmoud - 02-09-20

المشكلة ليست في الكود المشكلة في فهم المطلوب عمله اولا قبل البحث على كود لانجاز المهمة ، تجريب الاكواد ليس خيارا ابدا عند تطوير برنامج نظيف وعملي ، يجب فهم كل حرف قبل كتابته ، اي سطر كود غير مفهوم بشكل كامل هو عبارة عن قنبلة موقوتة في الكود 

مثلا الخاصية 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

           End If



       Next