كيف اسال عن وجود قيمة غير مختارة في عمود checkbox في داتاجريد
واضع النتيجة في متغير من نوع boolen
Dim nehal As Boolean
nehal = True
For i = 0 To DataGridView2.Rows.Count - 1
If Val(DataGridView2.Rows(i).Cells("percentage").Value) = -1 Then
CheckBox11.Checked = True
Else
CheckBox11.Checked = False
End If
'MsgBox((DataGridView2.Rows(i).Cells("percentage").Value))
Next
CheckBox11.Checked = nehal
هذه الطريقة غير فعالة فأنت تبحث عن قيمة False في الداتا غريد يمكن أن يكون هناك أكثر من سجل بالجدول الأفضل وضع النتيجة في ليست بوكس أو تشك ليست بوكس برقم و الاسم الموجود بالجدول بالنسبة للكود :
PHP كود :
Dim LBIdName as string=String.Empty
For i = 0 To DataGridView2.Rows.Count - 1
If DataGridView2.Rows(i).Cells("percentage").Value = False Then
LBIdName=DataGridView2.Rows(i).Cells("ID").Value & "-" & DataGridView2.Rows(i).Cells("Name").Value
Listbox1.Items.Add(LBIdName)
End If
Next
انا ابحث عن قيمة False في الداتا غريد
في اي صف
وفي حالة وجدودها يعطي رسالة او nehal = True
وفي حالة عدم وجودها يجعل المتغير nehal = false
ولا ارغب في لستة
السلام عليكم اخي عاطف .. رمضان كريم
اخي لنفترض ان لديك عدد من السجلات ولتكن 7 مثلا تحتوي على القيمة False
والسؤال كبف ستعرف قيمة false للسجلات السبعة ؟
وبما انك تقوم بجملة فور فهي حتما ستلف على كل السجلات وكل سجل فيه false يجب اعلامك بذلك من خلال message او وضع السجل ذو القيمة False
في ListBox او تعمل counter عداد لمعرفة عدد ال False
وكان رد اخونا عاصم مشكورا هو الصواب
اما كما تقول انت فبذلك عند البحث وايجاد اول قيمة Falde يجب الخروج من جملة فور
وهنا اسألك مامعنى ومافائدة ذلك حيث تكون النتيجة عند اول سجل يحوي قيمة False
لا اعلم مالهدف من هكذا كود...!!
هنا شي آخر إذا كان لديك عمود آخر باسم nihal عبارة عن حقل boolean وتريد تسجيل القيمة فيه
او ان تقوم بتغيير لون الخلية او لون الكتابة
طلبك مازال غامضا
كل عام والجميع بخير
ورمضان مبارك عليكم جميعاً
بخصوص سؤالك لكيفية معرفة قيمة غير محدد لها قيمة
وبدون قيمة تعنى 0 وهو نفسه False
فقط استخدم الكود بهذا الشكل
كود :
Dim nehal As New Boolean
For i = 0 To DataGridView2.Rows.Count - 1
If DataGridView2.Rows(i).Cells("percentage").Value Then
nehal = True
Else
nehal = False
End If
If Not nehal Then MsgBox(nehal)
Next
تحياتى لك
وتمنياتى لك التوفيق