jag är ej van med datagridar osv
med det jag vill få in är att färgsätta
siffrorna som kommer in i olika färger beroende på värdet
hur beter jag mig då
mvh
per höglund


datagriden som skall arbetas med



Dim cn As New SqlConnection
cn.ConnectionString = "Integrated Security=SSPI;Persist Security Info=False;Initial
catalog=Trading;Data Source=SMO;Packet Size=4096;Workstation ID=SMO"
Dim obadapter As New SqlDataAdapter
Dim objdatas As DataSet = New DataSet

cn.Open()
obadapter.SelectCommand = New SqlCommand
obadapter.SelectCommand.Connection = cn
obadapter.SelectCommand.CommandText = "SELECT SIGNAL,S1,S2,S3,S4,S5,S6,OM1,OM2,OM3,OM4,OM5,OM6 FROM TR@EC"
obadapter.SelectCommand.CommandType = CommandType.Text
obadapter.SelectCommand.ExecuteNonQuery()


obadapter.Fill(objdatas, "TR@EC")

cn.Close()
obadapter = Nothing
cn = Nothing
DataGrid1.DataSource = objdatas
DataGrid1.DataMember = "TR@EC"
DataGrid1.PreferredColumnWidth = 50
'DataGrid1.Refresh()



DataGrid1.Show()
Me.Invalidate(True)

mvh Per H

Hej Per

Pratades lite på chatten igår om ditt problem att fån en fråga gå var tredje sekund...dessväre hade jag inga bra tips gällande den frågan. Dessbättre tror jag att jag kan lösa ditt problem nu...

Efter att ha bundit all den data du vill ha i din drid så skal du lopa igenom den och kolla en viss kolum för att sedan i ditt fall ge den en annan bakgrundsfärg om jag förstod det rätt.

För att snurra igenom din data grid skriver du:

Deklarerar en i som en Integer

Dim I As Integer

With DatagridNamn
For i = 0 To .Items.Count - 1
'Här inne deklarerar du text en färg och tilldelar en en kolomn
Dim ColorRed = CType(.Items(i).FindControl("din labe"), Label).Text
If ColorRed = 'ett värde' Then
Sätt bakgrundsfärgen till röd
End If
Next
End With

Ja nå´t åt det hållet skulle kunna funka...Om inte annat så kanske du fått någon idé

Prova och skriv sedan nå´n rad...=)

// Thomas