+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : البحث بأكثر من شرط (/showthread.php?tid=38612)
البحث بأكثر من شرط - جيولوجي مبتدئ - 10-06-21
السلام عليكم ورحمة الله وبركاته
ياشباب أريد أن أبحث عن سجل في جدول في قاعدة بيانات sql والبحث بأكثر من شرط المطلوب إذا لم يجد السجل الذي أبحث عنه يرسل msgbox أنه لايوجد سجل مطابق
وهذا الكود الذي أستخدمه بالبحث علماً بأن الكود ناجح بالبحث واستخراج السجل الموجود ولكني أريده أن يظهر الرسالة اذا لم يوجد سجل مطابق
Dim i1 As Integer
For i1 = 0 To dt16.Rows.Count - 1
If dt16.Rows(i1)(4).ToString = DataGridView2.CurrentRow.Cells(4).Value.ToString And dt16.Rows(i1)(1).ToString = DataGridView2.CurrentRow.Cells(1).Value.ToString And dt16.Rows(i1)(6).ToString = "تأخر " And dt16.Rows(i1)(7).ToString = ComboBox7.Text Then
TextBox41.Text = dt16.Rows(i1)(8).ToString()
End If
Next
دمتم بود
لكم جزيل الشكر
RE: البحث بأكثر من شرط - Jounior_P - 11-06-21
زود Else قبل نهاية جملة If وصع الرسالة الخاصة بعدم وجود سجل مطابق
RE: البحث بأكثر من شرط - جيولوجي مبتدئ - 11-06-21
(11-06-21, 02:46 AM)Jounior_P كتب : زود Else قبل نهاية جملة If وصع الرسالة الخاصة بعدم وجود سجل مطابق
ألف شكر لك أخي
مش عارف كيف راحت على فكرة زي دي ............ هذه مشكلة من يعمل وهو مرهق وسهران
لك جزيل الشكر
دمت بود
RE: البحث بأكثر من شرط - مصمم هاوي - 11-06-21
(11-06-21, 01:38 PM)جيولوجي مبتدئ كتب :(11-06-21, 02:46 AM)Jounior_P كتب : زود Else قبل نهاية جملة If وصع الرسالة الخاصة بعدم وجود سجل مطابق
ألف شكر لك أخي
مش عارف كيف راحت على فكرة زي دي ............ هذه مشكلة من يعمل وهو مرهق وسهران
لك جزيل الشكر
دمت بود
صدقت وما أكثر ما يحدث معي هههههه