求助listBox列表框中双击删除选中行数据，为何最后一行不能删除。求解！！

zhangwg0604

各位路过的老师，我自己学着做了个销售录入。
listBox中明细，我双击明细中的某一行，可以提示是否删除当前选中的当前行数据（除标题行），
明细中有多条记录，其它行都可以删除，现在只有最后一条信息点击删除  提示无法获取List属性，属性阵列索引无效。
百思不得其解，还请老师指点帮我看看问题出在哪里。在此感谢！

Private Sub ListBox本单销售明细_DblClick(ByVal Cancel As MSForms.ReturnBoolean)        
         Dim X
         selectindex = ListBox本单销售明细.ListIndex
       For Each X In Sheets("销售单").Range("B2:B1000")           
           If X = ListBox本单销售明细.List(selectindex, 0) Then
               r = X.Row
               If ListBox本单销售明细.ListIndex = 0 Then Exit Sub
               If MsgBox("是否删除此行数据", vbYesNo, "警告") = vbYes Then
               ListBox本单销售明细.ListIndex = 0
                  Rows(r).Delete
                  Call 刷新明细
                Else
                    Exit Sub            
                End If         
           End If      
      Next
    Call 刷新明细     
End Sub

zhangwg0604

https://club.excelhome.net/thread-1673344-1-1.html
楼主及各位路过的老师指点一下错误出在哪里。
我把listBox的数据源放在表"销售单“中。
通过单击listbox的明细获取当前行的商品型号。
再通过这个商品型号在表”销售单“查找，获取这个商品型号所在”销售单“中的行号
提示选择窗体是否删除当前选中行。如果选是 删除这行数据 ，然后再刷新listBox明细。
现在问题： 选择最后一行点删除此行数据，提示无法获取List属性，属性阵列索引无效。
还请各位老师看看是否可以纠正。

zhangwg0604

我自己给自己顶一下吧。
问题我已经找到。
目前功能测试OK.