منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : تاكيد رقم
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .

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

اخواني الكرام معهد يعرف اشلون اتكون الطريقة
من فضلكم الى يكدر خل يساعد
وعليكم السلام ورحمة الله 
PHP كود :
       DGV2.ClearSelection()
 
       For I As Integer 0 To DGV2.Rows.Count 1
            If DGV2
.Rows(I).Cells(0).Value.ToString.Contains(DGV1.Rows(0).Cells(0).ValueThen
                DGV2
.Rows(I).Selected True
                DGV2
.FirstDisplayedScrollingRowIndex I
                Exit 
For
 
           Else
                MsgBox
("لا يوجد")
 
           End If
 
       Next 
بافتراض ان DGV1 بها سطر واحد
(21-03-18, 12:42 AM)محمود صالح كتب : [ -> ]وعليكم السلام ورحمة الله 
PHP كود :
       DGV2.ClearSelection()
 
       For I As Integer 0 To DGV2.Rows.Count 1
            If DGV2
.Rows(I).Cells(0).Value.ToString.Contains(DGV1.Rows(0).Cells(0).ValueThen
                DGV2
.Rows(I).Selected True
                DGV2
.FirstDisplayedScrollingRowIndex I
                Exit 
For
 
           Else
                MsgBox
("لا يوجد")
 
           End If
 
       Next 
بافتراض ان DGV1 بها سطر واحد
مشكور اخي ولكن ديظهر عندي هذا مسجvalue cannot be null

(21-03-18, 12:42 AM)محمود صالح كتب : [ -> ]وعليكم السلام ورحمة الله 
PHP كود :
       DGV2.ClearSelection()
 
       For I As Integer 0 To DGV2.Rows.Count 1
            If DGV2
.Rows(I).Cells(0).Value.ToString.Contains(DGV1.Rows(0).Cells(0).ValueThen
                DGV2
.Rows(I).Selected True
                DGV2
.FirstDisplayedScrollingRowIndex I
                Exit 
For
 
           Else
                MsgBox
("لا يوجد")
 
           End If
 
       Next 
بافتراض ان DGV1 بها سطر واحد
مشكور اخي ولكن ديظهر عندي هذا مسجvalue cannot be null
الكود صحيح
انا عملتلك مثال صغير انظر
[attachment=17506]