注册 登录
编程论坛 VB.NET论坛

请教高手DataGridView 修改数据报错了 也存不到数据库

hans998123 发布于 2011-11-26 17:00, 953 次点击
用户信息的修改 点那个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
1 回复
#2
隐圣猫2011-12-02 10:02
新手來的,之前一直是將所有刪除然後再重新插入。
 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("新增成功")
1