Listview 的运用

李桥贵

一指禅62 发表于 2022-2-2 19:47
新年好！这是一楼附件的代码：

谢谢一指禅老师

李桥贵

一指禅62 发表于 2015-6-2 16:37
本次修改：1、增加了数据完整性和关键字重复性控制代码；
                  2、增加了数据适时修改代码
...

一指禅62麻烦老师帮我完善一下使用Listview教师信息录入的代码 教师信息窗体录入2015—1.zip (95.58 KB, 下载次数: 58)

2022-2-17 14:28 上传

点击文件名下载附件

谢谢老师。麻烦老师指点一下。

李桥贵

一指禅62 发表于 2014-8-6 17:33
增加了借助 ImageList 控件调整行高

一指禅62麻烦老师帮我完善一下使用Listview教师信息录入的代码 教师信息窗体录入2015—1.zip (95.58 KB, 下载次数: 0)
谢谢老师。麻烦老师指点一下。

一指禅62

李桥贵 发表于 2022-2-17 14:33
一指禅62麻烦老师帮我完善一下使用Listview教师信息录入的代码  教师信息窗体录入2015—1.zip (95.58 KB, ...

您附件中的文件，是一个系统性的设计。但只要做好了一个LisivVew，其他照套。

李桥贵

一指禅62 发表于 2022-2-18 10:27
您附件中的文件，是一个系统性的设计。但只要做好了一个LisivVew，其他照套。

谢谢，一指禅62 老师。想麻烦老师帮我把学历这个做出来，我用了很长时间模仿做，但没有成功所以才向您求助，希望在百忙之中抽点时间做一下学历这个，其他我模仿
着做。谢谢再次感谢老师。

一指禅62

李桥贵 发表于 2022-2-18 11:50
谢谢，一指禅62 老师。想麻烦老师帮我把学历这个做出来，我用了很长时间模仿做，但没有成功所以才向您求 ...

做了一点点，供参考。实在没时间做下去，请谅解。

一指禅62

教师信息窗体录入2015—1.zip (83.17 KB, 下载次数: 92)

2022-2-18 15:43 上传

点击文件名下载附件

李桥贵

一指禅62 发表于 2022-2-18 15:44

谢谢老师，您辛苦了

一指禅62

李桥贵 发表于 2022-2-18 18:09
谢谢老师，您辛苦了

教师信息窗体录入.zip (68.76 KB, 下载次数: 117)

2022-2-19 17:45 上传

点击文件名下载附件

全部设计完成。用动态生成控件的方式，极大简化了代码。

一指禅62

多页控件管理列表框，生成对应控件

1. Private Sub MultiPage1_Change()
   
2.     Rem 功能：关联对应工作表
   
3.     On Error GoTo Err1 '处理工作表不存在的错误
   
4.     Rem  清除列表数据
   
5.     ListView1.ColumnHeaders.Clear
   
6.     ListView1.ListItems.Clear
   
7.     Rem  获取相应记录
   
8.     xName = MultiPage1.SelectedItem.Caption         '页标签
   
9.     Set Sh = Sheets(xName)                          '工作表
   
10.     Database = Sh.Range("A1").CurrentRegion.Value   '数据记录
    
11.     Frame1.Caption = "  " & xName & "  "
    
12.     If UBound(Database) = 0 Then
    
13.         MsgBox "“" & xName & "表”没有任何数据！", vbCritical, "提示"
    
14.         Exit Sub
    
15.     End If
    
16.     Rem  移除旧有的控件
    
17.     If Col.Count > 0 Then
    
18.         For i = Col.Count To 1 Step -1
    
19.             Me.Frame1.Controls.Remove "Text" & i
    
20.             Me.Frame1.Controls.Remove "xLbl" & i
    
21.         Next
    
22.         Set Col = Nothing
    
23.     End If
    
24.    
    
25.     Rem  加载列表头,添加控件
    
26.     For j = 1 To UBound(Database, 2)
    
27.         ListView1.ColumnHeaders.Add , , Database(1, j)
    
28.         Call ControlAdd(j, Database(1, j))
    
29.     Next
    
30.     Frame1.ScrollHeight = (Int((Col.Count - 1) / 3)) * 36
    
31.     Me.Controls("Text1").Enabled = False
    
32.     Call cmd模糊查询_Click
    
33.     Call cmd新建_Click
    
34.     Exit Sub
    
35. Err1:
    
36.     MsgBox Err.Description, vbExclamation, "错误"
    
37.     Err.Clear
    
38. End Sub

复制代码