[dubai.eig]

(14-05-19, 12:47 PM)elgokr كتب : لا ابداً المشكلة فقط فى هذا السطر

كود :

       If Not IsDBNull(cmd.ExecuteScalar()) Then

على اى حال انا قمت بتعديل كود الـ Function

فقط احذف ما لديك واستبدله بالتالى

كود :

   Private Function CountNumber(Num As Integer, CLo As Color)
       If conn.State <> ConnectionState.Open Then conn.Open()
       Dim cmd As New SQLiteCommand("SELECT cqz FROM DBqsos WHERE cqz=@cqz ", conn)
       cmd.Parameters.AddWithValue("@cqz", Num.ToString("00"))
       Dim sqLReader As SQLiteDataReader = cmd.ExecuteReader()
       If sqLReader.Read() Then
           Controls(String.Format("Label{0}", Num)).BackColor = CLo
           Controls(String.Format("Label{0}", Num)).Font = New Font(Controls(String.Format("Label{0}", Num)).Font, FontStyle.Bold)
       End If
       Return False
   End Function

وسيعمل معك ان شاء الله هذه المرة بدون مشكلة

تحياتى لك

وتمنياتى لك التوفيق

نعم استاذي كل شي على ما يرام بارك الله فيك

تسلم ايدك مجهود تشكر عليه