动态添加控件 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim lvw As WinForm.ListView = Forms("住宿信息").Controls("ListViewindex")

lvw.StopRedraw() '暂停绘制

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

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

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

lvw.Images.AddLargeImage("kong", "kong.ico") '添加代表的一对图标

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

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

lvw.Images.LargeSize = New Size(60,60) '定义大图标尺寸

For Each dr As DataRow In DataTables("住宿数据").DataRows '从数据表中提取数据

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

vr.Text = dr("宿舍") '设置标题

If dr("住宿状态") = "空" Then '设置分组

vr.ImageKey = "kong"

ElseIf dr("住宿状态") = "满" Then '设置分组

vr.ImageKey = "man"

Else

vr.ImageKey = "yu"

End If

vr.Tag= dr '将DataRow赋值给ListViewRow的Tag属性,将二者联系起来

lvw.ResumeRedraw() '恢复绘制

'---------------------

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

希望各位大师帮个忙写个代码，写在那个里面？

1、如何分性别在男生公寓和女生公寓中按宿舍生成如图控件，圈中显示该宿舍入住了几人

2、点击对应的宿舍，绑定的下表筛选出对应的性别下该宿舍的几人信息。

[此贴子已经被作者于2024/5/13 8:51:02编辑过]

两个都没实现，

1、想按照性别分类，宿舍号也是这样的，没有排序，也重复（几个出现了几次）咋修改呢

vr.Text = dr("宿舍") & "(" & DataTables("学生信息").Compute("count(学生姓名)","性别='女'" And "宿舍= 'dr("宿舍")" & dr("宿舍") & "'") & "人)" '设置标题

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

2. 就是点击该宿舍，出现对应的性别下该宿舍的几人信息。

tables("下表").filter = "宿舍='" & dr("宿舍") & "'") 代码不属于此命令

[此贴子已经被作者于2024/5/13 12:05:02编辑过]

前面我弄了半天还是是不行，希望各位大师帮个忙写个代码，我的是低版本的 2020.5.29版的，高版本打不开，改个代码

1、如何分性别在男生公寓和女生公寓中，现不能分类

2、点击对应的宿舍，绑定的学生信息表筛选出对应的性别下该宿舍的几人信息。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:住宿.rar

我的版本低，打不开，能发一下代码吗？

主题：动态添加控件