09-10-16, 03:42 PM
السلام عليكم
اعمل على برنامج تتبع الاوقات
ولدي ListView واثناء اضافة زبون جديد لايظهر في ListView
فقمت بعمل الاتي :
واي اضافة اقول بعملها تظهر لكن هناك شيء ناقص
ان اي شخص ينتهي الوقت الذي اقوم باضافته له لا يقوم بتظليله وقت الانتهاء فهل يوجد بديل ؟؟
اعمل على برنامج تتبع الاوقات
ولدي ListView واثناء اضافة زبون جديد لايظهر في ListView
فقمت بعمل الاتي :
كود :
Private Sub ListView1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListView1.SelectedIndexChanged
ListView1.Items.Clear()
For Each dr As DataRow In dc.ShowData().Rows
Dim item As New ListViewItem(dr("Code_ID").ToString())
item.SubItems.Add(dr("Code_num").ToString())
item.SubItems.Add(dr("Code_Timein").ToString())
item.SubItems.Add(dr("Code_Timeout").ToString())
item.SubItems.Add(dr("Code_mount").ToString())
item.SubItems.Add("")
ListView1.Items.Add(item)
For i As Integer = 0 To ListView1.Items.Count - 1 Step 1
If Val(ListView1.Items(i).SubItems(3).Text < DateTime.Now.ToString("hh:mm:ss t")) Then
ListView1.Items(i).BackColor = Color.Red
ListView1.Items(i).ForeColor = Color.White
ListView1.Items(i).SubItems(5).Text = "إنتهى الوقت المحدد"
Else
ListView1.Items(i).SubItems(5).Text = "لم ينته الوقت المحدد"
End If
Next
Next
End Subان اي شخص ينتهي الوقت الذي اقوم باضافته له لا يقوم بتظليله وقت الانتهاء فهل يوجد بديل ؟؟