كيف الون اداة ليست فيو الى لون معين حسب قيمة حقل

السلام عليكم ورحمه الله وبركاته

اختي جربي الكود التالي

للاسف لم يعمل

كما قلت لحضرتك كان شغال وتوقف

الاداة كلها لونها احمر

السلام عليكم ورحمه الله وبركاته

اختي اذا اردتي تلوين بعض العناصر استخدمي الخاصية Items وقومي بتحديد العنصر ومن ثم ضبط خلفيته ..

ايتخدمت هذا الكود

 Dim M As New ListViewItem

        	If Convert.ToBoolean(DR("b18")) = True Then
            	M.BackColor = Color.Red
        	End If

ولم يعمل

تم التعديل الى

 Dim M As New ListViewItem

        	If Convert.ToBoolean(DR("b18")) = False Then
            	M.BackColor = Color.Red
        	Else
            	M.BackColor = Color.White
        	End If

ولم يعمل ايضا

السلام عليكم ورحمه الله وبركاته

اخي عليك اضافة العنصر للـ List View, جربي الكود التالي

بالفعل الكود كان مكتوب

وهذا كامل الكود

خاص بالتلوين وايضا قواعد البيانات

ولم يعمل معى ولا اعرف اين الخطأ كان شغال وفجأه وقف

Dim DR As SqlClient.SqlDataReader
 	Do While DR.Read()
        	Dim M As New ListViewItem
        	If Convert.ToBoolean(DR("b18")) = False Then
           	ListView1.BackColor = Color.Red

        	Else
            	ListView1.BackColor = Color.White
        	End If
        	M.Text = DR(0)
        	For i = 1 To DR.FieldCount - 1
            	If IsDBNull(DR(i)) = False Then M.SubItems.Add(CStr(DR(i)))
        	Next
        	ListView1.Items.Add(M)
    	Loop

السلام عليكم ورحمه الله وبركاته

اختي جربي الكود التالي

للاسف لم يعمل ايضا السجلات كلها لونها احمر

السلام عليكم ورحمه الله وبركاته

اختي متأكدة انه في سجلات حقل ال b18 يساوي True؟!! بالاضافه اعتقد انني ارتكبت خطأ بسيط ف الكود السابق, قومي بتعديلة على النحو التالي

Easha كتب:

للاسف لم يعمل ايضا السجلات كلها لونها احمر

يوجد 3 سجلات

واحد false والاخرين true

Easha كتب:

يوجد 3 سجلات

واحد false والاخرين true

قبل البدأ بالتلوين

For i = 0 to lvw.Items.Count - 1
	mylistview.Items(0).UseItemStyleForSubItems = False
Next

سمير ابراهيم كتب:

قبل البدأ بالتلوين

For i = 0 to lvw.Items.Count - 1
	mylistview.Items(0).UseItemStyleForSubItems = False
Next

الكود به خطأ

اسلام عليكم ورحمة الله وبركاته

من قبل كان الكود شغال لكن توقف

اكتشفت اليوم انه عند عمل ايقاف لسجل بهذا الكود المرفق

مثلا ل 3 او 2 سجل بالليست فيو فان اول سجل هو الى بيحصل له ايقاف

اوى سجل اخر اعمله ايقاف فقط السجل الاول هو الى بيتغير

احس ان هنا المشكله

 Try
        	If CheckBoxX1.Checked = True Then
            	CheckBoxX1.Checked = False
        	End If
        	DISPLAYRECORD()
        	Form4_Load(sender, e)
        	UPDATERECORD()

        	Dim conn As New SqlConnection(constring3)
        	Dim cmd As New SqlCommand("Update mstsmr Set b18='False' Where b1=" & Convert.ToInt32(TextBoxX2.Text), conn)
        	conn.Open()
        	cmd.ExecuteNonQuery()
        	conn.Close()
    	Catch ex As Exception
        	MessageBox.Show(ex.Message)

End Try

up

السلام عليكم ورحمه الله وبركاته

اختي كان سؤالك حول التلوين, تأكدي انه في سجلات يكون الـحقل b18 فيه قيم متغيره, وبعدها جربي الكود السابق

السجل الاول فقط هو الذى يتغير واعتقد انه سبب للمشكله هذه

السلام عليكم ورحمه الله وبركاته

اختي اذا كان يتم تغيير اللون فهذا معناته ان الحل السابق صحيح!!

Easha كتب:

السجل الاول فقط هو الذى يتغير واعتقد انه سبب للمشكله هذه

للتوضيح

السجل الاول الى بيتغير الى true or false حتى وان اردت ان اغير السجل الثالث يقوم البرنامج بتغير السجل الاول

لكن الليست فيو كلها لونها احمر

السلام عليكم ورحمه الله وبركاته

اختي اذا المشكلة في كود التغيير؟!! قومي بتغيير الحقل من قاعدة البيانات, فاذا تم التلوين بنجاح معناته حلي تمام والمشكلة شيء اخر في كودك

VB Helper كتب:

السلام عليكم ورحمه الله وبركاته

اختي اذا المشكلة في كود التغيير؟!! قومي بتغيير الحقل من قاعدة البيانات, فاذا تم التلوين بنجاح معناته حلي تمام والمشكلة شيء اخر في كودك

جربت ولم يعمل

للرفع