动态添加控件 - 专家坐堂 - 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(学生姓名)","宿舍='" & dr("宿舍") & "'") & "人)" '设置标题

2、筛选到ListView的RowActivate事件处理，类似：http://www.foxtable.com/webhelp/topics/2782.htm

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

Dim vr As WinForm.ListViewRow = lvw.Current '获取ListView的当前行

If vr Is Nothing Then '如果不存在当前行,也就是内有选定任何一行

Return

End If

Dim dr As DataRow = vr.tag '获取此行对应的DataRow

tables("下表").filter = "宿舍='" & dr("宿舍") & "'")

两个都没实现，

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

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目2.zip

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

主题：动态添加控件