Dim lRet As ListItem, strTemp As String, intCnt As Integer
intCnt = 0
Do While intCnt <= lvwMain.ListItems.Count - 1
intCnt = intCnt + 1
strTemp = lvwMain.ListItems.Item(intCnt).SubItem(1)
Do
>> lvwMain.ListItems.Item(intCnt).SubItems(1) = ""
Set lRet = lvwMain.FindItem(strTemp, lvwSubitem)
If Not lRet Is Nothing Then
lvwMain.ListItems.Remove (lRet.Index)
End If
Loop While Not lRet Is Nothing
lvwMain.ListItems.Item(intCnt).SubItem(1) = strTemp
DoEvents
Loop
ASKER
ASKER
Private Sub RemoveDups(strNum As Integer)
Dim lRet As ListItem, strTemp As String, intCnt As Long
intCnt = 1
Do While intCnt <= lvwMain.ListItems.Count
strTemp = lvwMain.ListItems.Item(intCnt).SubItems(strNum)
Do
>> lvwMain.ListItems.Item(intCnt).SubItems(strNum) = ""
Set lRet = lvwMain.FindItem(strTemp, lvwSubItem)
If Not lRet Is Nothing Then
lvwMain.ListItems.Remove (lRet.Index)
End If
Loop While Not lRet Is Nothing
lvwMain.ListItems.Item(intCnt).SubItems(strNum) = strTemp
intCnt = intCnt + 1
DoEvents
Loop
End Sub
ASKER
ASKER
Visual Basic is Microsoft’s event-driven programming language and integrated development environment (IDE) for its Component Object Model (COM) programming model. It is relatively easy to learn and use because of its graphical development features and BASIC heritage. It has been replaced with VB.NET, and is very similar to VBA (Visual Basic for Applications), the programming language for the Microsoft Office product line.
TRUSTED BY
Open in new window