初学ADO献上小作《电话簿管理系统》

zhaogang1960 · 发表于 2012-9-6 22:13

win2009 发表于 2012-9-6 22:00
ListView 能否在前一次查询的结果里查询？

请版主不吝赐教，谢谢

你的意思是说从ListView控件中查询？
可以把ListView数据当成一个表，或一个数组，下面是它和数组的关系，请参考：

Private Sub 数据导出_Click()
Dim i%, j%, arr(), col%, m%
With ListView1
col = .ColumnHeaders.Count 'ListView列数
ReDim arr(1 To .ListItems.Count, 1 To col) '定义数组行数、列数同ListView
For i = 1 To .ListItems.Count '逐行
If .ListItems(i).Checked = True Then '选中
m = m + 1
arr(m, 1) = .ListItems(i)
For j = 1 To col - 1
arr(m, j + 1) = .ListItems(i).SubItems(j)
Next
End If
Next
End With
Sheets("表七").[a65536].End(xlUp).Offset(1).Resize(m, col) = arr
End Sub

复制代码

win2009 · 发表于 2012-9-6 22:20

zhaogang1960 发表于 2012-9-6 22:13
你的意思是说从ListView控件中查询？
可以把ListView数据当成一个表，或一个数组，下面是它和数组的关系 ...

谢谢版主，好快，正在研究，谢谢

win2009 · 发表于 2012-9-6 23:09

zhaogang1960 发表于 2012-9-6 22:13
你的意思是说从ListView控件中查询？
可以把ListView数据当成一个表，或一个数组，下面是它和数组的关系 ...

我是这样实现的，但是这个只能单选，我想实现多选
这个的意思是：只要某一行的值=TextBox1.Text，那么就保留，
删除其他记录，但是，当 TextBox1.Text 含有两个或多个条件时就不行了
结果只能保留一个，原因是删除行之后，行号变了，

Private Sub Label1_Click()
Dim i As Integer, fx As String
For i = ListView1.ListItems.Count To 1 Step -1
      If ListView1.ListItems(i).SubItems(5) <> TextBox1.Text Then
         ListView1.ListItems.Remove i
      End If
Next

End Sub

下面的就是不成功的，3个条件，只剩  a  ，第一个，符合b c 的都删除了
没办法
我想保留abc 任意符合一个的，请版主看看
Private Sub Label1_Click()
Dim i As Integer, fx As String，arr
arr = Array("a", "b", "c")
For j = 0 To UBound(arr) - 1
      For i = ListView1.ListItems.Count To 1 Step -1
         If ListView1.ListItems(i).SubItems(5) <> arr(j) Then
            ListView1.ListItems.Remove i
         End If
      Next
Next
Label28.Caption = "共有[" & ListView1.ListItems.Count & "]条记录"
End Sub

zhaogang1960 · 发表于 2012-9-6 23:40

win2009 发表于 2012-9-6 23:09
我是这样实现的，但是这个只能单选，我想实现多选
这个的意思是：只要某一行的值=TextBox1.Text，那么就 ...

第二个程序逻辑上有问题：
应该是3个条件同时都不满足才删除
If ListView1.ListItems(i).SubItems(5) <> arr(0) And ListView1.ListItems(i).SubItems(5) <> arr(1) And ListView1.ListItems(i).SubItems(5) <> arr(2) Then

win2009 · 发表于 2012-9-7 00:34

zhaogang1960 发表于 2012-9-6 23:40
第二个程序逻辑上有问题：
应该是3个条件同时都不满足才删除
If ListView1.ListItems(i).SubItems(5) ...

谢谢斑竹，行了，但有一个问题，只有一个条件时arr（“a”）不是数组，错误

现在只能用mid（）函数代替，并限制条件个数上限，能用了，谢谢，可帮了大忙

谢谢，

zhaogang1960 · 发表于 2012-9-7 00:41

win2009 发表于 2012-9-7 00:34
谢谢斑竹，行了，但有一个问题，只有一个条件时arr（“a”）不是数组，错误

现在只能用mid（）函数代替 ...

只有一个条件直接判断即可，就不用3个条件同时不满足

win2009 · 发表于 2012-9-7 02:02

zhaogang1960 发表于 2012-9-7 00:41
只有一个条件直接判断即可，就不用3个条件同时不满足

是的，谢谢版主

少如 · 发表于 2012-9-9 17:15

请版主各位老师给看看
为什么改变列名称后,
窗体不能向数据库增加新记录呀?
谢谢!!!

品质部人事管理系统QQ.zip (41.49 KB, 下载次数: 43)

zhaogang1960 · 发表于 2012-9-9 18:47

少如发表于 2012-9-9 17:15
请版主各位老师给看看
为什么改变列名称后,
窗体不能向数据库增加新记录呀?

原附件中有个约定：
ary(0) = Item '姓名存放到数组作为删除记录的姓名查询条件
ary(1) = .ListItems(Item.Index).SubItems(i - 1) '工作单位存放到数组作为删除记录的工作单位查询条件

我不知道你是怎么标记这两个条件的，如果你改变列名称后，也应该修改这两个条件

steven101 · 发表于 2012-9-9 20:02

下载一个试试看有没有

		自动登录	找回密码
密码			免费注册

[分享] 初学ADO献上小作《电话簿管理系统》

评分