Dunkel intRow som heltal
Dunkel intCol som heltal
Dunkel strColumn2 som stränger
Dunkel strColumn3 som stränger
För intRow = 0 till MSFlexGrid1.Rows - 1
'/uppsättning ro
MSFlexGrid1.Row = intRow
'/kontroll, om ro är 6?
Om intRow = 6 därefter
'/nöjd tillfångatagandekolonn 2
MSFlexGrid1.Col = 2
strColumn2 = MSFlexGrid1.Text
'/nöjd tillfångatagandekolonn 3
MSFlexGrid1.Col = 3
strColumn3 = MSFlexGrid1.Text
Om strColumn2 = ”10” och strColumn3 = ”10” därefter
'/kretsa till och med varje kolonn och ändra backcoloren
För intCol = 0 till MSFlexGrid1.Cols - 1
MSFlexGrid1.Col = intCol
MSFlexGrid1.CellBackColor = vbGray '/eller några färgar
Därefter
Avsluta om
Avsluta om
Därefter
|