مرحبا
انا لدي مشروع ويحتوي على اداة 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]
لم ينجح الكود وضهر اخطا
لتوضيح الطريقة بشكل افضل
في data grid view عمود يحتوي على ارقام
كيف نضع شرط اذا كان العمود يحتوي على رقم مثلا 123 يضهر رسالة ان الرقم موجود
مرحباً 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
تحياتى لك
وتمنياتى لك التوفيق
واضح انك تبحث عن رقم 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
(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
صدقت اخي عبد الله انا صممت برنامج حماية وجدار ناري عربي باالكامل سيغني عن جميع برامج الحماية الاجنبية فقط ينقصني كود البحث في ديتا جريد فيو وشكرا لكم
وعند انتهاء البرنامج ساانزله هنا حتى تعم الفائده على الجميع
ضهرت لي المشكلة التالية
