[Doctor GME]

لتسهيل الفكرة هذا هو تصميم برنامجى وكل combobox اسمه فى design مكتوب بالأحمر:



كما أننى حاولت تعديل كود Drawitem ووصلت للتالى:

كود :

   Private Sub ComboName_DrawItem(sender As Object, e As DrawItemEventArgs) Handles ComboName.DrawItem

       If e.Index = -1 Then Return

       e.DrawBackground()

       Dim item = DirectCast(ComboName.Items(e.Index), DataRowView)
       'Anothe Failed Line:
       'Dim item As DataRowView = CType(ComboName.Items(e.Index), DataRowView)

       Dim text = ComboName.GetItemText(item)
       Dim available = CBool(item("Available"))

       Using brush As New SolidBrush(If(available, Color.Red, e.ForeColor))
           e.Graphics.DrawString(text, e.Font, brush, e.Bounds)
       End Using

   End Sub

ولكنى لم أستطع ربط drawitem event بقاعدة البيانات وتعديل الكود الخاص بذلك