That's my actualy code...
-----------------------------
Public Class frm_plan_de_conturi
Private Sub Gecont_pcBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.Validate()
Me.Gecont_pcBindingSource.EndEdit()
Me.Gecont_pcTableAdapter.Update(Me.MbmgcntDataSet.gecont_pc)
End Sub
Private Sub frm_plan_de_conturi_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'MbmgcntDataSet.gecont_pc' table. You can move, or remove it, as needed.
Me.Gecont_pcTableAdapter.Fill(Me.MbmgcntDataSet.gecont_pc)
'Activare doar citire pentru grid
DataGridView1.ReadOnly = True
'Ascunderea coloanelor de ID si Data Adaugare
DataGridView1.Columns(0).Visible = False
DataGridView1.Columns(3).Visible = False
'Redimensionarea coloanelor vizibile
DataGridView1.Columns(1).Width = 100
DataGridView1.Columns(2).Width = 820
'Dezactivarea redimensionarii pentru coloana de Simbol Conturi
DataGridView1.Columns(1).Resizable = DataGridViewTriState.False
'Afisarea numarului de inregistrari in baza de date
'pentru planul de conturi
lblContorPC.Text = "Total inregistrari in planul de conturi: " & DataGridView1.RowCount
End Sub
Private Sub cmdIesire_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdIesire.Click
Me.Close()
End Sub
Private Sub cmdModificare_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdModificare.Click
If cmdModificare.Text = "Salvare" Then
cmdModificare.Text = "Modificare"
cmdIesire.Enabled = True
cmdAdaugare.Enabled = True
cmdStergere.Visible = True
Panel1.Width = 980
Panel1.Left = 12
Panel2.Visible = False
Panel3.Visible = True
cmdIesire.Focus()
Else
txtSimbolCont.Text = ""
txtDenumireCont.Text = ""
txtSimbolCont.Text = CStr(DataGridView1.CurrentRow.Cells(1).Value)
txtDenumireCont.Text = CStr(DataGridView1.CurrentRow.Cells(2).Value)
Panel2.Visible = True
Panel3.Visible = False
Panel1.Width = 312
Panel1.Left = 680
cmdIesire.Enabled = False
cmdAdaugare.Enabled = False
cmdStergere.Visible = False
txtSimbolCont.Focus()
cmdModificare.Text = "Salvare"
End If
End Sub
Private Sub cmdAdaugare_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAdaugare.Click
If cmdAdaugare.Text = "Salvare" Then
'DataGridView1.Rows.Add()
cmdAdaugare.Text = "Adaugare"
txtSimbolCont.Text = CStr(DataGridView1.CurrentRow.Cells(1).Value)
txtDenumireCont.Text = CStr(DataGridView1.CurrentRow.Cells(2).Value)
cmdIesire.Enabled = True
cmdModificare.Enabled = True
cmdStergere.Visible = True
Panel1.Width = 980
Panel1.Left = 12
Panel2.Visible = False
Panel3.Visible = True
cmdIesire.Focus()
Else
Panel2.Visible = True
Panel3.Visible = False
Panel1.Width = 312
Panel1.Left = 680
cmdIesire.Enabled = False
cmdModificare.Enabled = False
cmdStergere.Visible = False
txtSimbolCont.Text = ""
txtDenumireCont.Text = ""
txtSimbolCont.Focus()
cmdAdaugare.Text = "Salvare"
End If
End Sub
' Private Sub DataGridView1_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick
' txtSimbolCont.Text = DataGridView1.Item(1, e.RowIndex).Value
' txtDenumireCont.Text = DataGridView1.Item(2, e.RowIndex).Value
' End Sub
Private Sub DataGridView1_CellContentDoubleClick1(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentDoubleClick
cmdModificare.PerformClick()
txtSimbolCont.Text = DataGridView1.Item(1, e.RowIndex).Value
txtDenumireCont.Text = DataGridView1.Item(2, e.RowIndex).Value
End Sub
Private Sub DataGridView1_UserDeletingRow(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewRowCancelEventArgs) Handles DataGridView1.UserDeletingRow
If MessageBox.Show("Sunteti sigur ca doriti stergerea datelor?", "Delete Row", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.No Then
e.Cancel = True
End If
End Sub
Private Sub CheckBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox1.Click
CheckBox2.Checked = False
CheckBox3.Checked = False
DataGridView1.Sort(DataGridView1.Columns(0), System.ComponentModel.ListSortDirection.Ascending)
End Sub
Private Sub CheckBox2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox2.Click
CheckBox1.Checked = False
CheckBox3.Checked = False
DataGridView1.Sort(DataGridView1.Columns(1), System.ComponentModel.ListSortDirection.Ascending)
End Sub
Private Sub CheckBox3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox3.Click
CheckBox2.Checked = False
CheckBox1.Checked = False
DataGridView1.Sort(DataGridView1.Columns(2), System.ComponentModel.ListSortDirection.Ascending)
End Sub
Private Sub cmdStergere_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdStergere.Click
'If Not DataGridView1.CurrentRow.IsNewRow Then
'DataGridView1.Rows.Remove(DataGridView1.CurrentRow)
'Gecont_pcTableAdapter.Update(MbmgcntDataSet)
'End If
frm_stergere_date_pc.show()
End Sub
End Class
-----------------------------