【发布时间】:2016-12-03 03:18:23
【问题描述】:
请帮帮我 我想在使用数据表单击获取按钮时添加一个新行,我正在使用这个子
在顶部,我使用 Private dr 作为 Datarow=dt.newrow(),Private dt 作为 Datatable,Pos 作为 Integer
Private Sub AddDataTable
User = txtUser.Text
Password = txtPass.Text
Address = txtAddress.Text
'add Row...
dr(0) = User
dr(1) = Password
dr(2) = Address
'dt.Rows.Add(dr)
dt.Rows.InsertAt(dr, Pos)
Pos = Pos + 1
End Sub
获取事件点击
Private Sub btGet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btGet.Click
dgvUser.DataSource = dt
End Sub
和最后一个添加事件Click
Private Sub btAdd_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btAdd.Click
AddDataTable()
txtUser.Clear()
txtPass.Clear()
txtAddress.Clear()
End Sub
结果总是 1 行,当我再次尝试添加新行时,它给了我一个错误
【问题讨论】: