Lỗi ở ListCount (1 người xem)

DMQ · 2/12/15

Em có đoạn code Xóa mục trong Listbox, khi không chọn mục nào trong Listbox thì thoát Sub, khi chọn mục nào trong Listbox thì hiện MsgBox " Ban co muon xoa muc..." chọn Yes thì xóa, chọn no thì thoát Sub. Khi chọn Yes thì xóa và điều chỉnh lại Số thứ tự của mục. Ví dụ như trong ListBox có 3 mục có STT là 1,2,3, chọn mục có STT 2 xóa, xóa xong sẽ chỉnh lại trong ListBox còn là Mục có STT 1 và STT 2

Mã:

Private Sub cmd_xoa1_Click()
Dim msg As String, i As Long
  If ListBox1.ListCount = 0 Then Exit Sub
    Dim Answer
    msg = msg & "Ban co muon xoa Muc" & vbNewLine & _
    "- " & ListBox1.List(ListBox1.ListIndex, 0)
    Answer = MsgBox(msg, vbYesNo + vbQuestion)
    If Answer = vbNo Then Exit Sub
    If Answer = vbYes Then ListBox1.RemoveItem (ListBox1.ListIndex)
    For i = 1 To .[B][COLOR=#ff0000]ListCount <-----bị lỗi vàng chổ này[/COLOR][/B]
                 .List(i - 1, 0) = i
    Next i
    TextBox3.SetFocus
End Sub

Monh các AC gjup1 đỡ!!!!!

kuldokk · 2/12/15

DMQ đã viết:
Em có đoạn code Xóa mục trong Listbox, khi không chọn mục nào trong Listbox thì thoát Sub, khi chọn mục nào trong Listbox thì hiện MsgBox " Ban co muon xoa muc..." chọn Yes thì xóa, chọn no thì thoát Sub. Khi chọn Yes thì xóa và điều chỉnh lại Số thứ tự của mục. Ví dụ như trong ListBox có 3 mục có STT là 1,2,3, chọn mục có STT 2 xóa, xóa xong sẽ chỉnh lại trong ListBox còn là Mục có STT 1 và STT 2

Mã:

Private Sub cmd_xoa1_Click() Dim msg As String, i As Long If ListBox1.ListCount = 0 Then Exit Sub Dim Answer msg = msg & "Ban co muon xoa Muc" & vbNewLine & _ "- " & ListBox1.List(ListBox1.ListIndex, 0) Answer = MsgBox(msg, vbYesNo + vbQuestion) If Answer = vbNo Then Exit Sub If Answer = vbYes Then ListBox1.RemoveItem (ListBox1.ListIndex) For i = 1 To .[B][COLOR=#ff0000]ListCount <-----bị lỗi vàng chổ này[/COLOR][/B] .List(i - 1, 0) = i Next i TextBox3.SetFocus End Sub

Monh các AC gjup1 đỡ!!!!!

bạn thử code này xem sao

Mã:

Private Sub cmd_xoa1_Click()
Dim msg As String, i As Long
with ListBox1
  If .ListCount = 0 Then Exit Sub
    Dim Answer
    msg = msg & "Ban co muon xoa Muc" & vbNewLine & _
    "- " &  .List( .ListIndex, 0)
    Answer = MsgBox(msg, vbYesNo + vbQuestion)
    If Answer = vbNo Then Exit Sub
    If Answer = vbYes Then  .RemoveItem ( .ListIndex)
    
    For i = 1 To.[B][COLOR=#ff0000]ListCount <-----bị lỗi vàng chổ này[/COLOR][/B]
                 .List(i - 1, 0) = i
    Next i
end with
    TextBox3.SetFocus
End Sub