验证及排序
时间:2011-08-10
来源:互联网
add添加代码如下:
For i = 1 To listview1.ListItems.Count
If listview1.ListItems(i).checked Then
listview2.ListItems.Add , listview1.ListItems(i).Key, listview1.ListItems(i).Text
listview2.ListItems.Item(listview2.ListItems.Count).SubItems(1) _
= listview1.ListItems(i).SubItems(1)
listview2.ListItems.Item(listview2.ListItems.Count).SubItems(2) _
= listview1.ListItems(i).SubItems(2)
End If
Next i
现在问题一、是如何判断当listview2已存在相同数据,不重复添加(条件是drawing No.和 Rev相同)
二、添加的数据始终在listview2中最上面显示
作者: slysmart 发布时间: 2011-08-10
1,遍历,比较。
2,index= 0
2,index= 0
作者: patrickkong 发布时间: 2011-08-10
关于验证,代码自己写了无效,也没报错,不知问题在那?
For i = 1 To listview1.ListItems.Count
If listview1.ListItems(i).checked Then
For j = 1 To listview2.ListItems.Count
If listview1.ListItems(i).Text = listview2.ListItems(j).Text And _
listview1.ListItems(i).SubItems(1) = listview1.ListItems(j).SubItems(1) Then
Exit For
listview2.ListItems.Add , listview1.ListItems(i).Key, listview1.ListItems(i).Text
listview2.ListItems.Item(listview2.ListItems.Count).SubItems(1) _
= listview1.ListItems(i).SubItems(1)
listview2.ListItems.Item(listview2.ListItems.Count).SubItems(2) _
= listview1.ListItems(i).SubItems(2)
End If
Next j
End If
Next i
For i = 1 To listview1.ListItems.Count
If listview1.ListItems(i).checked Then
For j = 1 To listview2.ListItems.Count
If listview1.ListItems(i).Text = listview2.ListItems(j).Text And _
listview1.ListItems(i).SubItems(1) = listview1.ListItems(j).SubItems(1) Then
Exit For
listview2.ListItems.Add , listview1.ListItems(i).Key, listview1.ListItems(i).Text
listview2.ListItems.Item(listview2.ListItems.Count).SubItems(1) _
= listview1.ListItems(i).SubItems(1)
listview2.ListItems.Item(listview2.ListItems.Count).SubItems(2) _
= listview1.ListItems(i).SubItems(2)
End If
Next j
End If
Next i
作者: slysmart 发布时间: 2011-08-10
引用 1 楼 patrickkong 的回复:
1,遍历,比较。
2,index= 0
1,遍历,比较。
2,index= 0
那个的index=0?
新手不懂,还请说明白些
作者: slysmart 发布时间: 2011-08-10
引用 2 楼 slysmart 的回复:
关于验证,代码自己写了无效,也没报错,不知问题在那?
For i = 1 To listview1.ListItems.Count
If listview1.ListItems(i).checked Then
For j = 1 To listview2.ListItems.Count
If listview1.ListItems(i).Text = listview2.Lis……
关于验证,代码自己写了无效,也没报错,不知问题在那?
For i = 1 To listview1.ListItems.Count
If listview1.ListItems(i).checked Then
For j = 1 To listview2.ListItems.Count
If listview1.ListItems(i).Text = listview2.Lis……
1, 看看没问题,跟踪一下,
2, listview2.ListItems.Add 0,
作者: patrickkong 发布时间: 2011-08-10
相关阅读 更多
热门阅读
-
office 2019专业增强版最新2021版激活秘钥/序列号/激活码推荐 附激活工具
阅读:74
-
如何安装mysql8.0
阅读:31
-
Word快速设置标题样式步骤详解
阅读:28
-
20+道必知必会的Vue面试题(附答案解析)
阅读:37
-
HTML如何制作表单
阅读:22
-
百词斩可以改天数吗?当然可以,4个步骤轻松修改天数!
阅读:31
-
ET文件格式和XLS格式文件之间如何转化?
阅读:24
-
react和vue的区别及优缺点是什么
阅读:121
-
支付宝人脸识别如何关闭?
阅读:21
-
腾讯微云怎么修改照片或视频备份路径?
阅读:28