在datagridview中打開選定的行以在另一種形式中編輯

Question

我正在使用vb.net設計器連接到訪問數據庫。 在我的Form1上我有一個DataGridView和兩個按鈕添加和編輯我使Form2將數據添加到數據庫並工作正常... Imake Form3與相同的form2內容現在我需要當我在DataGridView和Clic編輯按鈕中選擇行時所選的數據在form3上的行顯示為編輯它

Public Class Form1

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Me.SalesTableAdapter.Fill(Me.OrdersDataSet.sales)

    Me.DateTimePicker1.Value = Date.Today
End Sub

Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker1.ValueChanged
    SalesBindingSource.Filter = String.Format("date = '{0}'", DateTimePicker1.Value.ToShortDateString())
End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Form2.Show()
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    Form3.Show()
End Sub

Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click

End Sub

Private Sub SalesDataGridView_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles SalesDataGridView.CellContentClick
End Sub
End Class

Answer 1

您需要以模態/對話方式處理此問題。 您只需要一個表單來添加和編輯 。

添加/編輯表單

將參數化構造函數添加到表單。

Public Sub New(row As DataRowView)
    Me.InitializeComponent()
    'Me.ctlAge: NumericUpDown control.
    'Me.ctlBirthday: DateTimePicker control.
    'Me.ctlName: TextBox control.
    If (row Is Nothing) Then
        'Add mode, set default values:
        Me.ctlAge.Value = 0
        Me.ctlBirthday.Value = Date.Now
        Me.ctlName.Text = String.Empty
    Else
        'Edit mode, set current values:
        Me.ctlAge.Value = CDec(row.Item("AGE"))
        Me.ctlBirthday.Value = CDate(row.Item("BIRTHDAY"))
        Me.ctlName.Text = CStr(row.Item("NAME"))
    End If
End Sub

您還需要一個接受按鈕和一個取消按鈕。

Friend Sub btnAcceptClicked(sender As Object, e As EventArgs) Handles btnAccept.Click
    Me.DialogResult = Windows.Forms.DialogResult.OK
    Me.Close()
End Sub

Friend Sub btnCancelClicked(sender As Object, e As EventArgs) Handles btnCancel.Click
    Me.DialogResult = Windows.Forms.DialogResult.Cancel
    Me.Close()
End Sub

主要形式

添加方法：

Private Sub btnAddClicked(sender As Object, e As EventArgs) Handles btnAdd.Click
    Try
        Using f As New AddOrEditForm(CType(Nothing, DataRowView))
            If (f.ShowDialog() = Windows.Forms.DialogResult.OK) Then

                Dim view As DataView = TryCast(Me.SalesDataGridView.DataSource, DataView)

                If (view Is Nothing) Then
                    Throw New InvalidCastException()
                End If

                Dim viewRow As DataRowView = view.AddNew()

                viewRow.EndEdit()
                viewRow.Item("AGE") = f.ctlAge.Value
                viewRow.Item("BIRTHDAY") = f.ctlBirthday.Value
                viewRow.Item("NAME") = f.ctlName.Text
                viewRow.EndEdit()

            End If
        End Using
    Catch ex As Exception
        MessageBox.Show(ex.Message)
    End Try
End Sub

編輯方法：

Private Sub btnEditClicked(sender As Object, e As EventArgs) Handles btnEdit.Click
    Try

        Me.SalesDataGridView.EndEdit()

        If (Me.SalesDataGridView.SelectedRows.Count > 0) Then

            Dim gridRow As DataGridViewRow = Me.SalesDataGridView.SelectedRows(0)
            Dim viewRow As DataRowView = TryCast(gridRow.DataBoundItem, DataRowView)

            If (viewRow Is Nothing) Then
                Throw New InvalidCastException()
            End If

            Using f As New AddOrEditForm(viewRow)
                If (f.ShowDialog() = Windows.Forms.DialogResult.OK) Then
                    viewRow.BeginEdit()
                    Try
                        viewRow.Item("AGE") = f.ctlAge.Value
                        viewRow.Item("BIRTHDAY") = f.ctlBirthday.Value
                        viewRow.Item("NAME") = f.ctlName.Text
                        viewRow.EndEdit()
                    Catch ex As Exception
                        viewRow.CancelEdit()
                        Throw ex
                    End Try
                End If
            End Using

        End If

    Catch ex As Exception
        MessageBox.Show(ex.Message)
    End Try
End Sub