+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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] استفسار :- بخصوص DataGridView1 (/showthread.php?tid=22313)
استفسار :- بخصوص DataGridView1 - dubai.eig - 30-10-17
السلام عليكم ورحمة الله
عندي ال DataGridView يتم تنزيل في بيانات ويتم فحص الاسم في قاعدة البيانات اذا موجود او لا
اذا موجود الاسم ينزله عادي واذا غير موجود يحدد الاسم باللوون معين
المشكله الان يتم تحديد جميع الاسامي في حالة الاسم غير موجود
[attachment=15930]
والمطلوب ان يحدد مربع واحد فقط كمثال
[attachment=15931]
ما اعرف هل الكود اللي عندي غلط
يعني اذا ما حصل الاسم يضلل على نفس الاسم واذا حصله خلاص ما يعمل شي
هذا هو الكود
كود :
For RowIndex As Integer = 0 To DataGridView1.Rows.Count - 1
Dim sa3callswork As String = a3
Dim conn41 As New SQLiteConnection(String.Format("Data Source= \DB.s3db", Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments), strcallbk))
conn41.Open()
Dim cmd41 As New SQLiteCommand(String.Format("SELECT COUNT(*) FROM DB WHERE CALLop = @CALLop"), conn41)
cmd41.Parameters.AddWithValue("CALLop", sa3callswork)
Dim rowCount41 As Integer = Convert.ToInt32(cmd41.ExecuteScalar())
If rowCount41 <> 0 Then
DataGridView1.Rows(RowIndex).DefaultCellStyle.BackColor = Nothing
Else
DataGridView1.Rows(RowIndex).DefaultCellStyle.BackColor = Color.Yellow
End If
Nextوبارك الله فيكم على الافاده وكثر الله خيركم
RE: استفسار :- بخصوص DataGridView1 - a.ahmed - 30-10-17
PHP كود :
Dim conn41 As New SQLiteConnection(String.Format("Data Source= \DB.s3db", Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments), strcallbk))
conn41.Open()
For RowIndex As Integer = 0 To DataGridView1.Rows.Count - 1
Dim sa3callswork As String = DataGridView1.Item(1, RowIndex).Value
Dim cmd41 As New SQLiteCommand(String.Format("SELECT COUNT(*) FROM DB WHERE CALLop = @CALLop"), conn41)
cmd41.Parameters.AddWithValue("CALLop", sa3callswork)
Dim rowCount41 As Integer = Convert.ToInt32(cmd41.ExecuteScalar())
If rowCount41 <> 0 Then
DataGridView1.Rows(RowIndex).DefaultCellStyle.BackColor = Nothing
Else
DataGridView1.Rows(RowIndex).DefaultCellStyle.BackColor = Color.Yellow
End If
Next
conn41.Close()
RE: استفسار :- بخصوص DataGridView1 - dubai.eig - 31-10-17
(30-10-17, 09:51 AM)a.ahmed كتب :PHP كود :
Dim conn41 As New SQLiteConnection(String.Format("Data Source= \DB.s3db", Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments), strcallbk))
conn41.Open()
For RowIndex As Integer = 0 To DataGridView1.Rows.Count - 1
Dim sa3callswork As String = DataGridView1.Item(1, RowIndex).Value
Dim cmd41 As New SQLiteCommand(String.Format("SELECT COUNT(*) FROM DB WHERE CALLop = @CALLop"), conn41)
cmd41.Parameters.AddWithValue("CALLop", sa3callswork)
Dim rowCount41 As Integer = Convert.ToInt32(cmd41.ExecuteScalar())
If rowCount41 <> 0 Then
DataGridView1.Rows(RowIndex).DefaultCellStyle.BackColor = Nothing
Else
DataGridView1.Rows(RowIndex).DefaultCellStyle.BackColor = Color.Yellow
End If
Next
conn41.Close()
\بارك الله فيك شكرا على الرد
مع الاسف نفس الطريقه يلون جميع المربعات
انا لازم انزل المشروع افضل لان الكود ياخذ المعلومات من الانترنت من موقع معين
اضبط المشروع وانزله لك بارك الله فيك وشكرا على وقتك ومجهودك
