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
Else
ctListFiles.AddItem lstLove.CellText(i, 1)
lstLove.RemoveItem i
End If
Next
Next
我想取的结果是,如果从lstLove到ctlistfiles表,ctlistfiles中存在的直接删除,不存在的增加进去。
实列可下载附件把JPG改成RAR就行。
For i = lstLove.ListCount - 1 To 0 Step -1
If ctListFiles.CellText(j, 1) = lstLove.CellText(i, 1) Then
lstLove.RemoveItem i
Else
ctListFiles.AddItem lstLove.CellText(i, 1)
lstLove.RemoveItem i
End If
Next
Next
我想取的结果是,如果从lstLove到ctlistfiles表,ctlistfiles中存在的直接删除,不存在的增加进去。
实列可下载附件把JPG改成RAR就行。
解决方案 »
- listview排序列首的▲或▼的箭头图标
- 请问在 Qbasic 4.5 中 如何实现 数值 和 字符 型 相互转换 ???
- Win7 64位系统编译出来的程序,在32位系统上运行,Ado组件无法正常使用,出现430错误
- ~~~~~大家可以讨论一下~~~~~我有点晕~~~
- 请问如何打开并编辑‘Visual Basic Form File’?我的
- inet的執行時間怎么那么長?
- VB中的数据环境与VF中的数据环境是一样用吗?我记得VF中的数据环境包括数据表、菜单文件、表单文件等很多东西
- 非常菜的问题
- 怎怎样使vb的datrpt自定义成横向、A4纸张,高分300分
- 根据文本框内输入的内容,搜索数据库中包含该内容的信息,然后显示
- 二进制文件读取问题
- 如何才能涨分啊
Do Until lstLove.ListCount = 0
For i = 0 To ctListFiles.ListCount - 1
If ctListFiles.CellText(i, 1) <> lstLove.CellText(0, 1) Then
ctListFiles.AddItem lstLove.CellText(0, 1)
End If
lstLove.RemoveItem 0
Next
Loop