Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
With dgv
.Columns.Add("STD_ID", "STD_ID")
.Columns.Add("Advances", "Advances")
.Columns.Add("SQL", "SQL")
.Columns.Add("PHP", "PHP")
.Columns.Add("Linux", "Linux")
.Columns.Add("Window", "Window")
End With
End Sub
Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
Dim i As Integer
With dgv
.Rows(i).Cells("STD_ID").Value = cboStd_id.Text
.Rows(i).Cells("Advances").Value = txtAdvances.Text
.Rows(i).Cells("SQL").Value = txtSQL.Text
.Rows(i).Cells("PHP").Value = txtPHP.Text
.Rows(i).Cells("Linux").Value = txtLinux.Text
.Rows(i).Cells("Window").Value = txtWindow.Text
End With
End Sub