تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] استفسار :- بخصوص DataGridView1
#1
السلام عليكم ورحمة الله

عندي ال DataGridView  يتم تنزيل في بيانات ويتم فحص الاسم في قاعدة البيانات اذا موجود او لا

اذا موجود الاسم ينزله عادي واذا غير موجود يحدد الاسم باللوون معين

المشكله الان يتم تحديد جميع الاسامي في حالة الاسم غير موجود 

   

والمطلوب ان يحدد مربع واحد فقط  كمثال

   


ما اعرف هل الكود اللي عندي غلط

يعني اذا ما حصل الاسم يضلل على نفس الاسم واذا حصله خلاص ما يعمل شي 


هذا هو الكود

كود :
               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


وبارك الله فيكم على الافاده وكثر الله خيركم
الرد }}}
تم الشكر بواسطة:
#2
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(1RowIndex).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() 
الرد }}}
تم الشكر بواسطة: dubai.eig , dubai.eig
#3
(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(1RowIndex).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() 

\بارك الله فيك شكرا على الرد

مع الاسف نفس الطريقه يلون جميع المربعات

انا لازم انزل المشروع افضل لان الكود ياخذ المعلومات من الانترنت من موقع معين


اضبط المشروع وانزله لك بارك الله فيك وشكرا على وقتك ومجهودك  Rolleyes
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: