Question

这是删除按钮上的代码

 Dim res As Integer
        res = MsgBox("Are you sure you want to delete?", MsgBoxStyle.YesNo)
        If res = vbYes Then

            If staffDB.SelectedRows.Count > -1 Then

                staffDB.Rows.RemoveAt(Me.staffDB.CurrentRow.Index)
                Me.Validate()
                Me.TblStaffLoginBindingSource.EndEdit()
                Me.TblStaffLoginTableAdapter.Update(Me.SampleDataSet)

                userArchive.DataGridView1.Rows.Insert(Me.staffDB.CurrentRow.Index)
                Me.Validate()
                userArchive.TblArchiveUserBindingSource.EndEdit()
                userArchive.TblArchiveUserTableAdapter.Update(userArchive.SampleDataSet)


            Else
                MessageBox.Show("You must select a row")
            End If
        End If

我有两种形式。命名为userAccounts和userArchive。在userAccounts表单上有一个删除按钮和datagridview（名为staffDB），它有数据。现在，当我点击datagridview上的数据，然后单击删除按钮，然后它将删除所选数据，但之后我想在userArchive上添加已删除的数据。 userarchive有一个名为Datagridview1的datagridview我想插入我在useraccounts上删除的数据。

Inshort我需要将已删除的数据添加到存档中。但我不知道如何:( 我真的很感激一些帮助。

如果你需要更多关于我的程序图片的问题的信息。

Answer 1

您已删除所选行。因此，当您在DGV1中插入时，您将收到错误。

试试这个：

                TblArchiveUserTableAdapter.tables(0).rows.add(1) 'no_of_rows_selected) <--
                userArchiv.Datagridview1.dataSource=TblArchiveUserBindingSource.Tables(0)    <--
                userArchive.DataGridView1.Rows.Insert(Me.staffDB.CurrentRow.Index)  <--- this line reordered. 
                staffDB.Rows.RemoveAt(Me.staffDB.CurrentRow.Index)
                Me.Validate()
                Me.TblStaffLoginBindingSource.EndEdit()
                Me.TblStaffLoginTableAdapter.Update(Me.SampleDataSet)
                userArchive.TblArchiveUserBindingSource.EndEdit()
                userArchive.TblArchiveUserTableAdapter.Update(userArchive.SampleDataSet)

Visual Basic删除然后插入数据

1 个答案: