مشکل در تغییر رنگ بعضی از سطرهای جدول در لود فرم

[tolid123456789]

سلام من فرمی دارم که یک دیتاگرید داره که دارای ستون زیر هست:



تاریخ شمسی


950701


950702


950703


950704


950705





حالا وقتی فرم لود میشه کد زیر رو می نویسم:


Dim i As Integer
For i = 0 To dgv1.RowCount() - 1
If dgv1.Rows(i).Cells(0).Value.tostring >= "950703" Then
dgv1.Rows(i).DefaultCellStyle.BackColor = Color.Red
End If
Next


با این کد زمان لود فرم هیچ اتفاقی برای رنگ سطرهای دیتاگرید نمی افته.

ولی پس از لود فرم همین کد رو برای دکمه ای روی فرم نوشتم رنگ سطرها به درستی تغییر می کنند.



تاریخ شمسی


950701


950702


950703


950704


950705


لطفا راهنمایی کنید.

[gilsoft]

سلام من فرمی دارم که یک دیتاگرید داره که دارای ستون زیر هست:



تاریخ شمسی


950701


950702


950703


950704


950705





حالا وقتی فرم لود میشه کد زیر رو می نویسم:


Dim i As Integer
For i = 0 To dgv1.RowCount() - 1
If dgv1.Rows(i).Cells(0).Value.tostring >= "950703" Then
dgv1.Rows(i).DefaultCellStyle.BackColor = Color.Red
End If
Next


با این کد زمان لود فرم هیچ اتفاقی برای رنگ سطرهای دیتاگرید نمی افته.

ولی پس از لود فرم همین کد رو برای دکمه ای روی فرم نوشتم رنگ سطرها به درستی تغییر می کنند.



تاریخ شمسی


950701


950702


950703


950704


950705


لطفا راهنمایی کنید.

سلام دوست عزیز

از کد زیر استفاده کن:
Private Sub Form1_Shown(sender As Object, e As System.EventArgs) Handles Me.Shown
Dim i As Integer
For i = 0 To Dgv1.RowCount() - 1
If CInt(Dgv1.Rows(i).Cells(0).Value.ToString) >= CInt("950703") Then
Dgv1.Rows(i).DefaultCellStyle.BackColor = Color.Red


End If
Next
End Sub

موفق باشید .....

[tolid123456789]

سلام
ممنون از جوابتون

مشکل در نوع متغیر در حال مقایسه نیست.
با فرض Integer بودن دو مولفه مقایسه شونده ( Dgv1.Rows(i).Cells(0).Value.ToString و 950703 ) و درست بودن کد بالا، همین کد در زمان لود فرم پس از fill شدن دیتاگرید اجرا نمیشه.

ولی وقتی همین کد رو بعد از لود فرم و Fill شدن دیتاگرید برای یک دکمه در فرم می نویسم جواب میده.


لطفا راهنمایی کنید

[tolid123456789]

سلام این کد رو در رویداد
Shown نوشتم مشکل حل شد.


ممنون از وقتی که گذاشتید.