kivoon
دوشنبه 01 اسفند 1390, 00:58 صبح
سلام به همه برنامه نویس ها و "خسته" نباشید.
من از grid شرکت component one استفاده می کنم .
می خوام یه الگوریتم داشته باشم با تلفیقی از دستور for , if که بخوام یه همچین کاری انجام بدم "منظور نوشته های پایین "
فکر کنید ما یه همچین جدولی داشته باشیم .
82955
فرض کنیم که 10 کلاس هم داشته باشیم .
می خوام این الگوریتم تو جدولم جستجو کنه که کلاس های خالیی با ساعت رو به من بده
خروجی این الگوریتم مثلا این جوری باشه
روز دوشنبه کلاس 6 ساعت 9 تا 10 و کلاس 7 ساعت 12 تا 14 خالیه
روز چهار شنبه کلاس 2 از ساعت 14 تا 18 خالیه
واقعا ممنون میشم کمکم کنید
من حتی یه تیکه از کدشو نوشتم اینه .
WithMe.Grid_Ctl
Dim i, j AsInteger
For i = 1 To .Rows.Count.ToString
For j = 22 To 45
If LSet(.Item(i, j).ToString, 2) >= LSet("09:00", 2) And LSet(.Item(i, j).ToString, 2) <= LSet("11:00", 2) Then
Dim cr AsCellRange = .GetCellRange(i, j)
cr.StyleNew.BackColor = Color.Yellow
Else
Dim cr AsCellRange = .GetCellRange(i, j)
cr.StyleNew.BackColor = Color.Green
EndIf
Next j
Next i
EndWith
کد من کلی حساب می کنه روز هایی که خالیه رو با رنگ سبز نشون می ده و روزهای که خالی نیست با رنگ زرد نشون می ده .
من از grid شرکت component one استفاده می کنم .
می خوام یه الگوریتم داشته باشم با تلفیقی از دستور for , if که بخوام یه همچین کاری انجام بدم "منظور نوشته های پایین "
فکر کنید ما یه همچین جدولی داشته باشیم .
82955
فرض کنیم که 10 کلاس هم داشته باشیم .
می خوام این الگوریتم تو جدولم جستجو کنه که کلاس های خالیی با ساعت رو به من بده
خروجی این الگوریتم مثلا این جوری باشه
روز دوشنبه کلاس 6 ساعت 9 تا 10 و کلاس 7 ساعت 12 تا 14 خالیه
روز چهار شنبه کلاس 2 از ساعت 14 تا 18 خالیه
واقعا ممنون میشم کمکم کنید
من حتی یه تیکه از کدشو نوشتم اینه .
WithMe.Grid_Ctl
Dim i, j AsInteger
For i = 1 To .Rows.Count.ToString
For j = 22 To 45
If LSet(.Item(i, j).ToString, 2) >= LSet("09:00", 2) And LSet(.Item(i, j).ToString, 2) <= LSet("11:00", 2) Then
Dim cr AsCellRange = .GetCellRange(i, j)
cr.StyleNew.BackColor = Color.Yellow
Else
Dim cr AsCellRange = .GetCellRange(i, j)
cr.StyleNew.BackColor = Color.Green
EndIf
Next j
Next i
EndWith
کد من کلی حساب می کنه روز هایی که خالیه رو با رنگ سبز نشون می ده و روزهای که خالی نیست با رنگ زرد نشون می ده .