刚接触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
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
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货