как вернуться (вернуться) к форме со значением

Question

У меня возникла серьезная проблема с поисковым окном, пожалуйста, помогите решить эту проблему.

см шаги моей формы открывает

1. открывают первую форму (от Dashboard)

   Dim ObjOrder As New OrderFormFrm 
   ObjOrder.USER = USER 
   ObjOrder.Show() 
   

2. Далее я должен открыть popwindow, основанный на событии текстового поля.

   Private Sub txtCustCode_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles txtCustCode.MouseClick 
   
       Dim PopUpCustomer As New searchCustomerfrm 
       PopUpCustomer.ShowDialog() 
   End Sub 
   

3. Я должен GoBack к БЛАНК ЗАКАЗА со значением на основе GridView строки события нажатия

   Private Sub DGVCustomer_CellContentDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGVCustomer.CellContentDoubleClick 
   
       OrderFormFrm.txtCustCode.Text = Val(DGVCustomer.Item(1, e.RowIndex).Value)` 
   
       Me.Close() 
   
   End Sub 
   

Проблемы есть, я получаю значение текстового поля БЛАНК ЗАКАЗА, когда я начинаю форму проекта от 'OrderFormFrm' (настройка свойств проекта - начало), а не получение, если я начал проект с панели инструментов.

Мне нужно, чтобы отобразить значение 'DGVCustomer.Item(1, e.RowIndex).Value' в формах заказа текстового поля 'txtCustCode'

Пожалуйста, помогите решить эту проблему

Answer 1

вы могли бы сделать общую функцию на searchCustomerfrm формы, которая возвращает значение, которое вы ожидаете от формы :

Public Shared Function GetCustomer() 
     Dim PopUpCustomer As New searchCustomerfrm 
     If PopUpCustomer.ShowDialog() = DialogResult.OK Then 
      Return Val(PopUpCustomer.DGVCustomer.Item(1, PopUpCustomer.DGVCustomer.CurrentRow.Index).Value) 
     Else 
      Return Nothing 
     End If 
End Function 

на DGVCustomer_CellContentDoubleClick пишут это:

Private Sub DGVCustomer_CellContentDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGVCustomer.CellContentDoubleClick 

    Me.DialogResult = DialogResult.OK 

End Sub 

Для вызова searchCustomerfrm из OrderFormFrm вы будете иметь этот код:

txtCustCode.Text = searchCustomerfrm.GetCustomer

Answer 2

Если я не пропустил что-то, что вам нужно называть исходную форму по имени экземпляра, а не по типу ...

Private Sub DGVCustomer_CellContentDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGVCustomer.CellContentDoubleClick 

    ObjOrder.txtCustCode.Text = Val(DGVCustomer.Item(1, e.RowIndex).Value) 

Me.Close() 

End Sub 

Answer 3

добавить общественное свойство sendingForm к классу searchCustomerFrm

Public Class searchCustomerFrm 
Public sendingForm As OrderFormFrm 

Затем установить это свойство представляемой форму при создании новой формы

Private Sub txtCustCode_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles txtCustCode.MouseClick 

    Dim PopUpCustomer As New searchCustomerfrm 
    PopUpCustomer.sendingForm = Me 
    PopUpCustomer.ShowDialog() 
End Sub 

Наконец, установить текстовое поле свойства отправки формы

Private Sub DGVCustomer_CellContentDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGVCustomer.CellContentDoubleClick 


     sendingForm.txtCustCode.Text = Val(dgvCustomer.Item(1, e.RowIndex).Value) 

     Me.Close() 

End Sub