listview如何实现组合选择输入条件，进行数据的筛选图示化呢？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

listview如何实现组合选择输入条件（单位名称支部名称选择值后），进行数据的筛选图示化呢？

单位名称控件enter事件代码如下：

Dim cmb As WinForm.ComboBox = e.form.Controls("ComboBox1")

cmb.ComboList = DataTables("党员信息").sqlGetComboListString("单位名称")

支部名称控件enter事件代码如下：

Dim cmb As WinForm.ComboBox = e.form.Controls("ComboBox1")

Dim cmb2 As WinForm.CheckedComboBox = e.Form.Controls("CheckedComboBox1")

cmb2.ComboList = DataTables("党员信息").sqlGetComboListString("支部名称","单位名称='"& cmb.SelectedValue & "'")

生成模式1按钮事件代码如下：

Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")

lvw.StopRedraw() '暂停绘制

lvw.Rows.Clear() '清除原来的行

lvw.Images.Clear() '清除原来的图片

lvw.View = ViewMode.LargeIcon '显示模式为大图标

lvw.Images.AddLargeImage("Man", "Man48.ico") '添加代表男性的一对图标

lvw.Images.AddLargeImage("Woman", "Woman48.ico") '添加代表女性的一对图标

For Each zh As String In DataTables("党员信息").GetValues("支部名称") '增加分组

Dim grp As WinForm.ListViewGroup = lvw.Groups.Add()

grp.Name = zh

grp.Text = zh

For Each dr As DataRow In DataTables("党员信息").DataRows '从数据表中提取数据

Dim vr As WinForm.ListViewRow = lvw.Rows.Add() '增加一行

vr.Text = dr("姓名") '设置标题

If dr("性别") = "男" Then '设置分组

vr.ImageKey = "Man"

Else

vr.ImageKey = "Woman"

End If

vr.Group = dr("支部名称") '指定所属分组

lvw.ResumeRedraw() '恢复绘制

当前运行图如下（系直接点击生成模式1得到的数据）

此主题相关图片如下：捕获.png

在生成模式1中事件代码加入如下内容（初步实现先进行数据筛选，然后在生成listview内容，可以实现单个单位和单个支部名称的数据筛选，如何实现多个支部名称或者多个单位名称的数据筛选呢？麻烦老师们指导一下更加快捷高效的代码写法，谢谢！）

Dim Filter As String

With e.Form.Controls("单位名称")

If .Value IsNot Nothing Then

Filter = "单位名称 = '" & .Value & "'"

End If

End With

With e.Form.Controls("支部名称")

If .Value IsNot Nothing Then

If Filter > "" Then

Filter = Filter & " And "

End If

Filter = Filter & "支部名称 = '" & .Value & "'"

End If

End With

If Filter > "" Then

DataTables("党员信息").loadFilter= Filter

DataTables("党员信息").load

End If

[此贴子已经被作者于2020/12/7 13:28:20编辑过]

主题：listview如何实现组合选择输入条件，进行数据的筛选图示化呢？