+ -
当前位置:首页 → 问答吧 → 验证及排序

验证及排序

时间: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

作者: 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

作者: slysmart   发布时间: 2011-08-10

引用 1 楼 patrickkong 的回复:

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……

1, 看看没问题,跟踪一下,
2, listview2.ListItems.Add 0,

作者: patrickkong   发布时间: 2011-08-10

热门下载

更多