Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
lvw.StopRedraw() '暂停绘制
lvw.View = ViewMode.SmallIcon
lvw.CheckBoxes = True
For Each dr As DataRow In DataTables("干警信息").DataRows '从数据表中提取数据
Dim r As WinForm.ListViewRow = lvw.Rows.Add() '增加一行
r.Text = dr("姓名") '指定行的标题
r.Name = r.Text '将行的名称设置为标题,也就是国家
Next
lvw.ResumeRedraw() '恢复绘制
怎么修改代码 去除红色框中的空白部分呢?
怎么实现每行自定义显示5个列呢?
For Each dr As DataRow In DataTables("干警信息").DataRows '从数据表中提取数据
怎么实现数据的筛选显示呢?比如我要筛选为 所在单位 身份属性 两个条件满足的数据
此主题相关图片如下:11.png

[此贴子已经被作者于2020/1/2 16:12:52编辑过]