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

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



تاكيد رقم - kaiser_noori - 17-03-18


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




RE: تاكيد رقم - kaiser_noori - 19-03-18

اخواني الكرام معهد يعرف اشلون اتكون الطريقة
من فضلكم الى يكدر خل يساعد


RE: تاكيد رقم - محمود صالح - 21-03-18

وعليكم السلام ورحمة الله 
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 بها سطر واحد


RE: تاكيد رقم - kaiser_noori - 23-03-18

(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


RE: تاكيد رقم - محمود صالح - 25-03-18

الكود صحيح
انا عملتلك مثال صغير انظر
[attachment=17506]