- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 动态添加控件 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=191873)
-- 发布时间：2024/5/13 8:48:00
-- 动态添加控件
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属性,将二者联系起来
Next
lvw.ResumeRedraw() \'恢复绘制
\'---------------------
此主题相关图片如下：001.png
希望各位大师帮个忙 写个代码，写在那个里面？
1、如何分性别在男生公寓和女生公寓中按宿舍生成如图控件，圈中显示该宿舍入住了几人
2、点击对应的 宿舍，绑定的下表筛选出对应的性别下该宿舍的几人信息。
[此贴子已经被作者于2024/5/13 8:51:02编辑过]
-- 发布时间：2024/5/13 9:01:00
--
1、在标题里显示几人，如：
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("宿舍") & "\'")
-- 发布时间：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编辑过]
-- 发布时间：2024/5/13 12:10:00
--
贴出全部的完整代码
-- 发布时间：2024/5/16 15:10:00
--
前面我弄了半天还是是不行，希望各位大师帮个忙 写个代码，我的是低版本的 2020.5.29版的， 高版本打不开，改个代码
1、如何分性别在男生公寓和女生公寓中，现不能分类
2、点击对应的宿舍，绑定的学生信息表 筛选出对应的性别下该宿舍的几人信息。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:住宿.rar |
-- 发布时间：2024/5/16 15:26:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目2.zip |
-- 发布时间：2024/5/16 15:52:00
--
我的版本低，打不开，能发一下代码吗？
-- 发布时间：2024/5/16 15:56:00
--
更新到最新版