Refreshing grid

[veenna]

How can i refresh datagrid in vb.net.
I want to display color in one cell in grid but when it loads first time it is working here is my code

Public Class Dialog_Colorazione
    Const YEAR_START As Integer = 2005
    'function to fill the combo with year
    Private Sub LoadComboBoxes()
        cboYear.Items.Clear()
        cboYear.SelectedIndex = -1
        Dim i As Integer
        For i = Date.Today.Year To YEAR_START Step -1
            cboYear.Items.Add(i.ToString())
        Next
        cboYear.SelectedIndex = 0
        ' loadcolor(cboYear.SelectedItem)
    End Sub
 
    Private Sub Dialog_Colorazione_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        'Me.Close()
    End Sub
    'till here function to fill the combo with year
 
   Private Sub Dialog_Colorazione_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'calling functions to fill the combo and display the color details
        'cboYear.SelectedText = Today.Year
 
        LoadComboBoxes()
        ' loadcolor(cboYear.SelectedItem)
        'cboYear.SelectedIndex = 1
        dgvFatturato.Refresh()
 
    End Sub
 
    'function the collect and fill the grid with the colors in the selected year
    Public Function loadcolor(ByVal year As Integer)
        Dim currentyear As Integer = Today.Year
        Using connection As New OleDbConnection(My.Settings.BCS_ACCConnectionString & ";Jet OLEDB:Database Password=" & Costanti.strAccessDbPassword)
 
            connection.Open()
 
            Dim adpt As New OleDb.OleDbDataAdapter("SELECT RefYear,LowRange,UpRange,ColorName FROM ACC_COLORI_FATTURATO WHERE RefYear=" & year & "", connection)
 
            Dim ds As New DataTable
 
            adpt.Fill(ds)
 
            'added on 08/12/2007 to display color in the datagrid
            If ds Is Nothing Or ds.Rows.Count = 0 Then
                ShowMessage("Nessun dato per i criteri selezionati")
                dgvFatturato.Visible = False
            Else
                dgvFatturato.DataSource = Nothing
                dgvFatturato.Visible = True
                dgvFatturato.DataSource = ds
 
                ds.Columns(0).ColumnName = "Anno"
                ds.Columns(1).ColumnName = "Maggiore da"
                ds.Columns(2).ColumnName = "Minore da"
                ds.Columns(3).ColumnName = "Colore"
                ' ds.Columns(4).ColumnName = "ID colore" 'commended on 11/01/2008 for hiding the coloumn
 
                'Added on 11/01/2008
                ' Dim year1 As Integer = cboYear.SelectedItem
                Using connection1 As New OleDbConnection(My.Settings.BCS_ACCConnectionString & ";Jet OLEDB:Database Password=" & Costanti.strAccessDbPassword)
                    connection1.Open()
                    Dim ds1 As New DataTable
                    Dim adpt1 As New OleDbDataAdapter("select color from ACC_COLORI_FATTURATO WHERE RefYear=" & year & "", connection)
                    adpt1.Fill(ds1)
                    If dgvFatturato.RowCount > 0 And ds1.Rows.Count > 0 Then
                        For Each row As DataGridViewRow In dgvFatturato.Rows
                            ' For i As Integer = 0 To ds1.Rows.Count - 1
                            Dim colorn As Integer = ds1.Rows(row.Index).Item(0)
                            row.Cells(3).Style.BackColor = Color.FromArgb(255, Color.FromArgb(CType(colorn, Int32)))
                        Next
                    End If
                    connection1.Close()
                End Using
                ''Till here
 
            End If
            'Till here added on 08/12/2007  to display color in the datagrid
 
            connection.Close()
        End Using
 
    End Function
    'till here function the collect and fill the grid with the colors in the selected year
 
    'function to convert decimal value to hexadecimal
    Private Function DeciamlToHexadeciaml(ByVal number As Integer) As String
        Dim hexvalues As String() = {"0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "D", "E", "F"}
        Dim result As String = Nothing
        Dim final As String = Nothing
        Dim div As Integer = 0
        Dim rem1 As Integer
 
        While True
            rem1 = (number Mod 16)
            result += hexvalues(rem1).ToString()
 
            If number < 16 Then
                Exit While
            End If
 
            number = (number / 16)
        End While
        For i As Integer = (result.Length - 1) To 0 Step -1
 
            final += result(i)
        Next
 
        Return final
    End Function
    'till here function to convert decimal value to hexadecimal
 
    'to collect and display the color information on change of the combo
    Private Sub cboYear_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboYear.SelectedIndexChanged
        loadcolor(cboYear.SelectedItem)
    End Sub
    'till here to collect and display the color information on change of the combo
 
    Protected Sub ShowMessage(ByVal message As String)
        ToolStripStatusLabel2.Text = message
    End Sub
 
    Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
        Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
        Me.Close()
    End Sub
    Private Sub dgvFatturato_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvFatturato.CellContentClick
 
    End Sub
 
    Protected Overrides Sub Finalize()
        MyBase.Finalize()
    End Sub
End Class
 

Thanks....

[Frinavale]

After reading your question, I got the impression that you were having problems changing the colour of your GridView's cells when the GridView is First Loaded.

I suggest changing the cell's colours in the method that handles your GridView's RowDataBound event.

EG:

Protected Sub dgvFatturato_RowDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GV_SearchResults.RowDataBound
       For i As Integer = 0 to e.Row.Cells.Count -1
            e.Row.Cells(i).Style.BackColor = Color.FromArgb(255, Color.FromArgb(CType(colorn, Int32)))
        Next
 
End Sub
 

I'm not sure if this is what your asking for though...your code suggests that you are dealing with selecting colours in your GridView...

-Frinny

[veenna]

Thank you.. for your replay..


My problem is :
When the page loads first time it display color in the grid. But after that it is not displaying color on page load and in dropdown selected index change i am calling the same function there it is working fine.

[Frinavale]

Thank you.. for your replay..


My problem is :
When the page loads first time it display color in the grid. But after that it is not displaying color on page load and in dropdown selected index change i am calling the same function there it is working fine.

Something else (after your Page_Load) may be setting the colour to something else...Check that this is not the case.