---
title: "Makera speciella celler i anullunda färger i MSFlexgrid"
type: "forum-thread"
url: "https://www.webforum.nu/amne/dotnet/42856-makera-speciella-celler-i-anullunda-färger-i-msflexgrid"
topic: ".NET"
topic_url: "https://www.webforum.nu/amne/dotnet"
author: "saw"
published: "2002-05-01T08:38:32.000Z"
updated: "2002-05-01T08:38:32.000Z"
replies: 0
views: 145
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/dotnet/42856-makera-speciella-celler-i-anullunda-färger-i-msflexgrid"
---

# Makera speciella celler i anullunda färger i MSFlexgrid

## #1 — saw, 2002-05-01T08:38Z

Hej.
Nu har jag ett retfult problem.
I en MSFlexgrid så laddar jag in bl a datum titel Sverige Europa och Världen.
I dom tre sista fälten så fins nulereriska värden. Det jag vill åstakomma är att om det står en 1:a, så skall cellens bakgrund bli röd osv.
Jag har NÄSTAN löst det, men färgändringen ligger en rad efter..
Om jag t ex har följande:

Sverige
12
16 \<---denna blir röd
1   \<---denna blir röd
1   \<---inte denna
12

Jag vill ha ut tre olika färger, men saken upprepas, färgändring kommer en rad för tidigt.
Så här ser min kod ut:

```
While mittRS2.EOF = False
For i = 1 To 4
    If mittRS2.Fields(i) = "1" And Len(mittRS2.Fields(i)) = 1 Then

        MSFlexGrid1.col = i
        MSFlexGrid1.row = j
        Label1.Caption = j
        MSFlexGrid1.CellForeColor = vbWhite
        MSFlexGrid1.CellBackColor = RGB(245, 93, 17)
    ElseIf mittRS2.Fields(i) = "2" And Len(mittRS2.Fields(i)) = 1 Then
     
        MSFlexGrid1.col = i
        MSFlexGrid1.row = j
        Label1.Caption = j
        MSFlexGrid1.CellForeColor = vbWhite
        MSFlexGrid1.CellBackColor = RGB(1, 180, 220)
     ElseIf mittRS2.Fields(i) = "3" And Len(mittRS2.Fields(i)) = 1 Then
    
        MSFlexGrid1.col = i
        MSFlexGrid1.row = j
        Label1.Caption = j
        MSFlexGrid1.CellForeColor = vbWhite
        MSFlexGrid1.CellBackColor = RGB(126, 209, 130)
    End If
    Next
    
    MSFlexGrid1.AddItem vbTab & mittRS2.Fields(1) & _
    vbTab & _
    mittRS2.Fields(2) & _
    vbTab & _
    mittRS2.Fields(3) & _
    vbTab & _
    mittRS2.Fields(4)
 
    mittRS2.MoveNext

 j = j + 1
Wend
```

Det här har jag brotats med nu ganska länge, och det är ju bara den "lilla klicken kvar".
Någon som kan se lösningen?  :q

Permalänk: https://www.webforum.nu/p/42856

---

Tråden på webben: https://www.webforum.nu/amne/dotnet/42856-makera-speciella-celler-i-anullunda-färger-i-msflexgrid