共8 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：动态添加控件
1楼
nxdx112 发表于：2024/5/13 8:48:00Dim 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属性,将二者联系起来
Next
lvw.ResumeRedraw() '恢复绘制
'---------------------
此主题相关图片如下：001.png
希望各位大师帮个忙 写个代码，写在那个里面？
1、如何分性别在男生公寓和女生公寓中按宿舍生成如图控件，圈中显示该宿舍入住了几人
2、点击对应的 宿舍，绑定的下表筛选出对应的性别下该宿舍的几人信息。
[此贴子已经被作者于2024/5/13 8:51:02编辑过]
2楼
有点蓝 发表于：2024/5/13 9:01:001、在标题里显示几人，如：
vr.Text = dr("宿舍") & "(" & DataTables("住宿数据").compute("count(学生姓名)","宿舍='" & dr("宿舍") & "'") & "人)" '设置标题
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("宿舍") & "'")
3楼
nxdx112 发表于：2024/5/13 12:03:00
两个都没实现，1、想按照性别分类 ，宿舍号也是这样的，没有排序，也重复（几个出现了几次） 咋修改呢
vr.Text = dr("宿舍") & "(" & DataTables("学生信息").Compute("count(学生姓名)","性别='女'" And "宿舍= 'dr("宿舍")" & dr("宿舍") & "'") & "人)" '设置标题
此主题相关图片如下：02.png
2. 就是点击该宿舍，出现对应的性别下该宿舍的几人信息。
tables("下表").filter = "宿舍='" & dr("宿舍") & "'") 代码不属于此命令
[此贴子已经被作者于2024/5/13 12:05:02编辑过]
4楼
有点蓝 发表于：2024/5/13 12:10:00贴出全部的完整代码
5楼
nxdx112 发表于：2024/5/16 15:10:00前面我弄了半天还是是不行，希望各位大师帮个忙 写个代码，我的是低版本的 2020.5.29版的， 高版本打不开，改个代码
1、如何分性别在男生公寓和女生公寓中，现不能分类
2、点击对应的宿舍，绑定的学生信息表 筛选出对应的性别下该宿舍的几人信息。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:住宿.rar |
6楼
有点蓝 发表于：2024/5/16 15:26:00| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目2.zip |
7楼
nxdx112 发表于：2024/5/16 15:52:00我的版本低，打不开，能发一下代码吗？
8楼
有点蓝 发表于：2024/5/16 15:56:00更新到最新版
共8 条记录, 每页显示 10 条, 页签:
[1]