For j=0 To ctListFiles ListCount - 1
For I=lstLove. ListCount 1 To 0 Step - 1
If ctListFiles. CellText (j, 1)=lstLove. CellText (I, 1) Then
LstLove. RemoveItem I
The Else
CtListFiles. AddItem lstLove. CellText (I, 1)
LstLove. RemoveItem I
End the If
Next
Next
I want to take as a result, if from lstLove to ctlistfiles table, direct delete existing in ctlistfiles, there is no increase in,
Solid column may just change the JPG to RAR download attachment,
CodePudding user response:
CtListFiles is what east eastCodePudding user response:
Do Until lstLove. ListCount=0
For I=0 To ctListFiles. ListCount - 1
If ctListFiles. CellText (I, 1) & lt;> Then lstLove. CellText (0, 1)
CtListFiles. AddItem lstLove. CellText (0, 1)
End the If
LstLove. RemoveItem 0
Next
Loop
CodePudding user response: