تقييم الموضوع :
  • 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
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] استفسار Nani 3 1,247 10-04-24, 04:35 AM
آخر رد: emadahmed1995
  سؤا بخصوص تجيمع كميات المواد المباعة في اليوم momani33 2 130 07-04-24, 11:02 PM
آخر رد: momani33
  [سؤال] استفسار toe 2 97 26-03-24, 08:13 PM
آخر رد: mrfenix93
  استفسار هام جدا سلام و محبه2090 1 146 17-02-24, 08:26 PM
آخر رد: عبدالله الدوسري
  [نقاش] بخصوص خصم مبلغ الضريبة من السعر h2551996 6 282 24-01-24, 06:17 PM
آخر رد: Taha Okla
  ممكن استفسار عن m3u8 malekmohamed155 0 235 20-01-24, 07:47 PM
آخر رد: malekmohamed155
  طلب مساعدة بخصوص كود الطباعة paveldida 2 475 19-01-24, 12:00 AM
آخر رد: العتيق
Tongue استفسار بسيط عن كريستال ريبورت waataanys 1 316 30-11-23, 04:44 PM
آخر رد: Taha Okla
  [سؤال] استفسار ahmed_king2023 2 390 02-11-23, 01:13 PM
آخر رد: ahmed_king2023
  [VB.NET] امر DataGridView1.Rows.Add يسبب مشكله في الحفظ oody 1 246 26-10-23, 08:27 PM
آخر رد: aljzazy

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


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم