Save Text State of Dynamically Created Buttons RagGridView

[Raphael]

I have a RadGridView with a filed called Start with  dynamically created buttons. When i click on it my code changed the text of the row that was clicked to Stop if it was Start Previously. MY issue is when i click another row the previously changed text is lost and the new row shows stop. I want to save the text of all the dynamically crated buttons when one is clicked.

 Dim StartStop As New GridViewCommandColumn()
        StartStop.Name = "StartStop"
        StartStop.HeaderText = "Start"
        StartStop.UseDefaultText = True
        StartStop.DefaultText = "Start"
        StartStop.Width = 40
        StartStop.MinWidth = 40
        RadGridView1.MasterTemplate.Columns.Add(StartStop)

         AddHandler RadGridView1.CommandCellClick, AddressOf radGridView1_CommandCellClick

  Sub radGridView1_CommandCellClick(ByVal sender As Object, ByVal e As EventArgs)
      Dim ID As String = TryCast(sender, GridCommandCellElement).RowIndex

      Dim StartStop As String = TryCast(sender, GridCommandCellElement).CommandButton.Text

If StartStop = "Start" Then

               TryCast(sender, GridCommandCellElement).CommandButton.Text = "Stop"

else

               TryCast(sender, GridCommandCellElement).CommandButton.Text = "Start"

end if

  End Sub

 

 

[Dimitar]

Hello Raphael,

Thank you for writing.

First you need to set the Value of all cells in the command column (the default text should be used when all cells have equal text only):

Protected Overrides Sub OnLoad(ByVal e As EventArgs)
    MyBase.OnLoad(e)

    For Each item In radGridView1.Rows
        item.Cells("StartStop").Value = "Start"
    Next item
End Sub

Then you can set the cell value in the CommandCellClick event handler:

Private Sub radGridView1_CommandCellClick(ByVal sender As Object, ByVal e As GridViewCellEventArgs)

    Dim StartStop As String = e.Value.ToString()

    If StartStop = "Start" Then
        e.Row.Cells(e.Column.Name).Value = "Stop"
    Else
        e.Row.Cells(e.Column.Name).Value = "Start"
    End If
End Sub

Please let me know if there is something else I can help you with. 

 

Regards,
Dimitar
Telerik