Private Sub DGV1_CellMouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles DGV1.CellMouseDoubleClick
Dim FrmSaleSearch As New FrmSalesSearchID
FrmSaleSearch.ShowDialog()
End Sub
Private Sub DGV1_EditingControlShowing(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewEditingControlShowingEventArgs) Handles DGV1.EditingControlShowing
Dim Cbo As ComboBox = TryCast(e.Control, ComboBox)
If Cbo IsNot Nothing Then
RemoveHandler Cbo.SelectionChangeCommitted, New EventHandler(AddressOf ComboBox_SelectionChangeCommitted)
AddHandler Cbo.SelectionChangeCommitted, New EventHandler(AddressOf ComboBox_SelectionChangeCommitted)
End If
End Sub
Private Sub ComboBox_SelectionChangeCommitted(ByVal sender As Object, ByVal e As EventArgs)
Dim cb As ComboBox = TryCast(sender, ComboBox)
FinestockWood = cb.Text
Dim FrmSaleSearch As New FrmSalesSearchID
FrmSaleSearch.ShowDialog()
End Sub