Private Sub cmdDel_Click ()
On Error GoTo ErrHandler
If Not lvwLotList. SelectedItem Is Nothing Then
If lvwLotList. SelectedItem. Selected Then
DeleteFOUPId=lvwLotList. SelectedItem. Text
'Call m_oParent. O_frmLoginMES. SetDeleteObjectId (DeleteFOUPId)
Call m_oParent. O_frmLoginMES. Clear
Call m_oParent. O_frmLoginMES. FrmShow (" DeleteFOUP - "& amp; DeleteFOUPId, "DELETEFOUP", True, DeleteFOUPId)
End the If
End the If
The Exit Sub
ErrHandler:
Call WriteErrorLog (" Error raise during Sub: "& amp; MODULE_ID & amp; ", Desc is "cmdDel_Click & amp; Err. Description)
End Sub
Program in the If Not lvwLotList. SelectedItem Is Nothing Then
CodePudding user response:
LvwLotList is a drag to the window in advance a List of controls,