تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
شرط في DataGridView
#1
مرحبا

انا لدي مشروع ويحتوي على اداة DataGridView والاداة تحتوي على 4 اعمة



كتبت شرط عند وجود رقم معين في العمود رقم 2 تضهر رسالة وكتبت الشرط في form_load ولم ينجح هل المشكلة من طريقة كتابتي لشرط ام من الكود

هاذا هو كود الشرط بخصوص العمود رقم 2 اسم العمود tt

كود :
       If DGV.Columns.Count = "72.229.28.185" Then
           MessageBox.Show("connect")
       Else
           MsgBox("no")
       End If
[url=http://vb4arb.com/vb/showthread.php?tid=26955][/url]
لم ينجح الكود وضهر اخطا
الرد
تم الشكر بواسطة:
#2
لتوضيح الطريقة بشكل افضل

في data grid view عمود يحتوي على ارقام

كيف نضع شرط اذا كان العمود يحتوي على رقم مثلا 123 يضهر رسالة ان الرقم موجود
الرد
تم الشكر بواسطة:
#3
مرحباً Dasktop

يمكنك استخدام الكود بهذا الشكل
كود :
       Dim i, ii As Integer
       Dim Check_ As String() = {72, 229, 28, 185} ' ضع الارقام المطلوب البحث بها هنا وافضل بينهم بعلامة الفصلة
       For ii = 0 To DataGridView1.RowCount - 1
           For i = 0 To Check_.Count - 1
               If DataGridView1.Rows(ii).Cells(2).Value.ToString.Contains(Check_(i)) Then
                   MsgBox("Contains " & Check_(i))
               End If
           Next
       Next

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
#4
واضح انك تبحث عن رقم IP Address بناءاً علية تعرف إذا أنت متصل أم لا.

لكن تأكد قبل تنفيذ الكود ان الـ DataGrigView تحتوي على بيانات , لأنك تستدعي الأمر في حدث نحميل النافذة

كود :
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        Dim CellNumber As Integer = 1 ' رقم 1 يعني العامود الثاني
        Dim Find = (From T In DGV.Rows.Cast(Of DataGridViewRow)() Where Not T.IsNewRow AndAlso T.Cells(CellNumber).Value IsNot Nothing AndAlso T.Cells(CellNumber).Value.ToString = "72.229.28.185").ToList

        If Find.Count > 0 Then
            MsgBox("Connected... OK")
        Else
            MsgBox("Not Connected!!!")
        End If
   End Sub
الرد
تم الشكر بواسطة: dasktop , elgokr
#5
(16-11-18, 06:00 AM)عبدالله الدوسري كتب : واضح انك تبحث عن رقم IP Address بناءاً علية تعرف إذا أنت متصل أم لا.

لكن تأكد قبل تنفيذ الكود ان الـ DataGrigView تحتوي على بيانات , لأنك تستدعي الأمر في حدث نحميل النافذة

كود :
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        Dim CellNumber As Integer = 1 ' رقم 1 يعني العامود الثاني
        Dim Find = (From T In DGV.Rows.Cast(Of DataGridViewRow)() Where Not T.IsNewRow AndAlso T.Cells(CellNumber).Value IsNot Nothing AndAlso T.Cells(CellNumber).Value.ToString = "72.229.28.185").ToList

        If Find.Count > 0 Then
            MsgBox("Connected... OK")
        Else
            MsgBox("Not Connected!!!")
        End If
   End Sub




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

ضهرت لي المشكلة التالية

الرد
تم الشكر بواسطة:
#6
الـ NET Framework.
 3.5 فأعلى
ورفرنس على : Namespace:System.Linq
الرد
تم الشكر بواسطة: elgokr , dasktop


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  عرض معلومات ف DatagridView Emam emam 6 171 أمس, 04:46 PM
آخر رد: Emam emam
  جمع الكمية لصنف واحد داخل datagridview atef_020 22 488 15-12-18, 03:09 PM
آخر رد: atef_020
  [سؤال] مقارنة بين عمودين في datagridview nashnoush 1 78 15-11-18, 12:56 AM
آخر رد: nashnoush
  استفسار عن طريقة نقل البيانات من Datagridview إلى الكريستال ريبورت جيولوجي مبتدئ 2 174 22-10-18, 12:15 AM
آخر رد: جيولوجي مبتدئ
  [VB.NET] استفسار :- بخصوص نقل الداتا من DataGridView عن طريق CheckBoxColumn dubai.eig 3 163 15-10-18, 08:09 PM
آخر رد: عبدالله الدوسري
Photo [VB.NET] استراد بيانت من ملف الاكسل الى DataGridView كريم جودي 3 187 30-08-18, 09:47 PM
آخر رد: elgokr
  فقدان البيانات بعد إدخالها في ال Datagridview Hazem1 12 494 30-08-18, 01:55 PM
آخر رد: elgokr
  الترقيم التلقائي توقف عن العمل في Datagridview Hazem1 3 240 25-08-18, 09:29 AM
آخر رد: elgokr
  [VB.NET] كيف يُمكن طباعة بيانات Datagridview عندما تكون البيانات أكثر من صفحة واحدة Hazem1 3 253 23-08-18, 08:38 PM
آخر رد: elgokr
  ظهور رسالة خطأ عند الإنتقال إلى حقول ال Datagridview Hazem1 2 148 18-08-18, 06:59 PM
آخر رد: elgokr

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم