vb中怎么从listview框的记录中筛选
目前我已经实现通过listview空间把从access数据库中查询的记录结果显示出来,现在想要筛选部分记录(比如前10个记录,后10个记录、全部记录、手动任意选取若干记录...
目前我已经实现通过listview空间把从access数据库中查询的记录结果显示出来,现在想要筛选部分记录(比如前10个记录,后10个记录、全部记录、手动任意选取若干记录等),不知道怎么实现,望高人指点,麻烦给出详细的vb代码,不胜感激!
补充:我的思路是画两个listview框,然后设置两个按钮:添加和删除,在第一个listview中选择若干记录记录,点击添加就会移动到第二个记录中,同样在第二个记录中选择若干记录后点删除,就会再移动到第一个listview中,不知道这样是否可行?请高手帮忙,麻烦给出详细的vb代码,非常感谢!
我对vb不熟,希望大家能给点代码,最好加上说明
谢谢了 展开
补充:我的思路是画两个listview框,然后设置两个按钮:添加和删除,在第一个listview中选择若干记录记录,点击添加就会移动到第二个记录中,同样在第二个记录中选择若干记录后点删除,就会再移动到第一个listview中,不知道这样是否可行?请高手帮忙,麻烦给出详细的vb代码,非常感谢!
我对vb不熟,希望大家能给点代码,最好加上说明
谢谢了 展开
2个回答
展开全部
Private Sub Command1_Click()
If List1.List(List1.ListIndex) <> "" Then
List2.AddItem (List1.List(List1.ListIndex))
List1.RemoveItem (List1.ListIndex)
End If
End Sub
Private Sub Command2_Click()
If List2.List(List2.ListIndex) <> "" Then
List1.AddItem (List2.List(List2.ListIndex))
List2.RemoveItem (List2.ListIndex)
End If
End Sub
Private Sub Form_Load()
List1.AddItem "A"
List1.AddItem "B"
List1.AddItem "C"
List1.AddItem "D"
List1.AddItem "E"
Command1.Caption = "添加"
Command2.Caption = "删除"
End Sub
完整代码如上,你只需在窗体上添加四个控件:
两个ListBox和两个CommandBox
无须修改代码,直接运行即可.
If List1.List(List1.ListIndex) <> "" Then
List2.AddItem (List1.List(List1.ListIndex))
List1.RemoveItem (List1.ListIndex)
End If
End Sub
Private Sub Command2_Click()
If List2.List(List2.ListIndex) <> "" Then
List1.AddItem (List2.List(List2.ListIndex))
List2.RemoveItem (List2.ListIndex)
End If
End Sub
Private Sub Form_Load()
List1.AddItem "A"
List1.AddItem "B"
List1.AddItem "C"
List1.AddItem "D"
List1.AddItem "E"
Command1.Caption = "添加"
Command2.Caption = "删除"
End Sub
完整代码如上,你只需在窗体上添加四个控件:
两个ListBox和两个CommandBox
无须修改代码,直接运行即可.
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询