用户信息的修改 点那个DataGridView应该显示到下面的文本框里 但是现在没有反应，还一个提示是什么数组越界  表中 4个字段 UserId UserName Password  Role
UserID 是只读的 但是有个文本框可以显示的  剩下的都可以改变 但是存不到数据库里
代码如下 拜谢高手了 ！

Private Sub DataGridView1_Click(sender As System.Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
        Dim selRow As DataGridViewRow = DataGridView1.SelectedRows(0)//这行说什么数组越界了
        txtUserId.Text = selRow.Cells(0).Value.ToString()
        txtUserName.Text = selRow.Cells(0).Value.ToString()
        txtPassword.Text = selRow.Cells(2).Value.ToString()
        txtRole.Text = selRow.Cells(3).Value.ToString()
    End Sub  这个是点那个DataGridView
--------------------------------------------------------------------------------------------------------------------
Private Sub btnChange_Click(sender As System.Object, e As System.EventArgs) Handles btnChange.Click
        Dim row As DataRow = BindingContext(DataGridView1.DataSource, DataGridView1.DataMember).Current.Row //这行最后的Row 点不出来
        row("UserName") = txtUserName.Text
        row("Password") = txtPassword.Text
        row("Role") = txtRole.Text
        T_UserTableAdapter.Update(HotelDataSet.T_User)
        HotelDataSet.T_User.AcceptChanges()
    End Sub

新手來的，之前一直是將所有刪除然後再重新插入。
 If strFlag = "add" Then
            Dim inti As Integer
            For inti = 0 To DataGridView1.Rows.Count - 1
                abc = 0 : abc1 = "" : abc2 = ""
                abc3 = ""
                'abc4 = DataGridView1.Item(-1, inti).Value.ToString
                abc2 = DataGridView1.Item(0, inti).Value.ToString
                abc1 = DataGridView1.Item(1, inti).Value.ToString
                abc3 = DataGridView1.Item(2, inti).Value.ToString
                abc = DataGridView1.Item(3, inti).Value.ToString '

                = "insert into t_table(id,name,address,price)values('" & abc2 & "','" & abc1 & "','" & abc3 & "','" & abc & "')"

                objconnection.Open()
                objCommand.ExecuteNonQuery()
                objconnection.Close()
            Next
            MessageBox.Show("新增成功")