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 という名前のデータグリッドビューがあります。そこにユーザーアカウントで削除したデータを挿入したかったのです。

つまり、削除されたデータをアーカイブに追加する必要があります。しかし、私は方法を知りません:( idは本当に助けに感謝します.

質問についてさらに情報が必要な場合は、私のプログラムの写真を投稿してください。

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 に答える