Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Confrontare 2 record in datagridview

10 views
Skip to first unread message

Marco75

unread,
May 10, 2022, 6:12:19 AM5/10/22
to
Ciao,
avrei la necessità di verificare se ci sono dei cambiamenti in 2 record di SQL Server. L'idea è quella di mettere questi 2 record in un datagridview per poi verificare le differenze ad esempio:

Data X50 Polvere Densità
9/5/2022 322 16 400
4/6/2021 322 18 380

ho delle caselle di testo che prendono il valore più recente e lo mostrano quindi l'operatore vede

X50 = 322
Polvere = 16
Densità = 400

vorrei impostare il colore del testo in rosso per Polvere e Densità in quanto sono cambiati mentre X50 rimane in nero non avendo variazioni.
qualche idea?
grazie
Marco

Freccia (VegetaSSj)

unread,
May 14, 2022, 4:28:30 PM5/14/22
to
Su "it.comp.lang.visual-basic", ==Marco75=> ha scritto:

> Ciao, avrei la necessità di verificare se ci sono dei cambiamenti in 2
> record di SQL Server. L'idea è quella di mettere questi 2 record in
> un datagridview per poi verificare le differenze ad esempio:
>
> Data X50 Polvere Densità 9/5/2022 322 16
> 400 4/6/2021 322 18 380

Userei una List(Of Classe) dove specifichi i campi e li popoli da DB,
poi la bindi alla griglia, oppure un datatable se preferisci.


> ho delle caselle di testo che prendono il valore più recente e lo
> mostrano quindi l'operatore vede
>
> X50 = 322 Polvere = 16 Densità = 400
>
> vorrei impostare il colore del testo in rosso per Polvere e Densità
> in quanto sono cambiati mentre X50 rimane in nero non avendo
> variazioni. qualche idea?

Sulla datagridview lo puoi fare al cellformatting, psuedo codice preso
da internet, a cui manca di controllare e.ColIndex per le varie colonne
che vuoi controllare

| Private Sub dgv_DisplayData_Vertical_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles dgv_DisplayData_Vertical.CellFormatting
| Try
|
| If dgv_DisplayData_Vertical.Rows(e.RowIndex).Cells("LevelID").Value.ToString() = "6" Then
|
| e.CellStyle.BackColor = Color.DimGray
| End If
| If dgv_DisplayData_Vertical.Rows(e.RowIndex).Cells("LevelID").Value.ToString() = "5" Then
| e.CellStyle.BackColor = Color.DarkSlateGray
| End If
| If dgv_DisplayData_Vertical.Rows(e.RowIndex).Cells("LevelID").Value.ToString() = "4" Then
| e.CellStyle.BackColor = Color.SlateGray
| End If
| If dgv_DisplayData_Vertical.Rows(e.RowIndex).Cells("LevelID").Value.ToString() = "3" Then
| e.CellStyle.BackColor = Color.LightGray
| End If
| If dgv_DisplayData_Vertical.Rows(e.RowIndex).Cells("LevelID").Value.ToString() = "0" Then
| e.CellStyle.BackColor = Color.White
| End If
|
| Catch ex As Exception
|
| End Try
|
| End Sub

--
Freccia@Bulldozer63 :D
0 new messages