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

在datagridview中打开选定的行以在另一种形式中编辑

1 个答案: