Private Sub RadTreeView1_Edited(ByVal sender As Object, ByVal e As Telerik.WinControls.UI.TreeNodeEditedEventArgs) Handles RadTreeView1.Edited
On Error GoTo ErrMsg
Dim DBConnection As New OleDbConnection("Provider=msdaora;Data Source=ubrmos01;User Id=tiadmin;Password=******")
Dim strsql As String
If e.Node.Level = 0 Then
DBConnection.Open()
strsql =
"UPDATE APPLICATION set APPLICATION = " & "'" & e.Node.Text & "'" & " where APPLICATION = " & "'" & Text_beforeedit & "'"
Dim Command As New OleDbCommand(strsql, DBConnection)
Command.ExecuteNonQuery()
End If
If e.Node.Level = 1 Then
DBConnection.Open()
strsql =
"UPDATE ENVIRONMENT set ENVIRONMENT = " & "'" & e.Node.Text & "'" & " where ENVIRONMENT = " & "'" & Text_beforeedit & "'"
Dim Command As New OleDbCommand(strsql, DBConnection)
Command.ExecuteNonQuery()
End If
Exit Sub
errmsg:
e.Node.Text = Text_beforeedit
MsgBox(Err.Description, MsgBoxStyle.Critical,
"Error Updating Database")
End Sub
For i As Integer = 0 To Me.RadGridView1.MasterGridViewInfo.TableHeaderRow.Cells.Count - 1
Me.RadGridView1.MasterGridViewInfo.TableHeaderRow.Cells(i).CellElement.BackColor = Color.Green
Me.RadGridView1.MasterGridViewInfo.TableHeaderRow.Cells(i).CellElement.BackColor2 = Color.Green
Me.RadGridView1.MasterGridViewInfo.TableHeaderRow.Cells(i).CellElement.BackColor3 = Color.Green
Me.RadGridView1.MasterGridViewInfo.TableHeaderRow.Cells(i).CellElement.BackColor4 = Color.Green
Me.RadGridView1.MasterGridViewInfo.TableHeaderRow.Cells(i).CellElement.ForeColor = Color.White
Next
How can I do the same for the rest of the rows, especially when I need to have different colors for the alternating rows??
Thank you in advance
George
richRibbonBar1.ShowHomeTab = false;
richRibbonBar1.ShowInsertTab = false; // ...etc