0

这是删除按钮上的代码

 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

我有 2 个表格。命名为 userAccounts 和 userArchive。在 userAccounts 表单上有一个删除按钮和 datagridview（名为 staffDB），其中包含数据。现在，当我单击 datagridview 上的数据，然后单击删除按钮时，它将删除选定的数据，但之后我想在 userArchive 上添加已删除的数据。用户存档有一个名为 Datagridview1 的数据网格视图，我想在那里插入我在用户帐户上删除的数据。

简而言之，我需要将已删除的数据添加到存档中。但我不知道怎么做:(我真的很感谢一些帮助。

如果您需要有关该问题的更多信息，请发布我的程序的图片。

4

1 回答 1

0

您已经删除了选定的行。因此，当您插入 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)
于 2013-02-17T14:43:48.223 回答