刚接触VB,各位大神帮帮忙!!
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-" & DeleteFOUPId, "DELETEFOUP", True, DeleteFOUPId)
        End If
    End If
    
Exit Sub
ErrHandler:
    Call WriteErrorLog("Error raise during Sub:" & MODULE_ID & ".cmdDel_Click, Desc is " & Err.description)
End Sub
程序停在 If Not lvwLotList.SelectedItem Is Nothing Then