一个简易文件登记检索系统

一指禅62 · 发表于 2017-10-23 08:05

老鬼公公_31 发表于 2017-10-23 00:19
老师，是TreeView2里面的年度时间排列能倒序排列吗？最上面是全部、2017、2016这样

for i=2017 to 1996 step -1

next

老鬼公公_31 · 发表于 2017-10-23 19:29

a = Array("政府文", "政府办", "常委会议纪要", "主席会议纪要", "工作情况", "其他")
b = Array("短期", "长期", "永久"),老师，Array（）里面的内容怎么用已设定的单元格数据替换

老鬼公公_31 · 发表于 2017-10-23 19:30

a = Array("政府文", "政府办", "常委会议纪要", "主席会议纪要", "工作情况", "其他")
b = Array("短期", "长期", "永久")，老师，Array（）里面的内容怎么用已设定的单元格数据替换

一指禅62 · 发表于 2017-10-24 09:01

老鬼公公_31 发表于 2017-10-23 19:30
a = Array("政府文", "政府办", "常委会议纪要", "主席会议纪要", "工作情况", "其他")
b = Array("短 ...

比如 a=sheet1.range("A1:A15")，即指定单元格区域

老鬼公公_31 · 发表于 2017-10-29 10:27

1.点主窗体，进入首页，老师请帮我完成统计结果的显示，每个页面显示不同的分类统计结果
或者帮我设计下怎样显示比较好也行

一指禅62 · 发表于 2017-10-31 11:40

老鬼公公_31 发表于 2017-10-29 10:27
1.点主窗体，进入首页，老师请帮我完成统计结果的显示，每个页面显示不同的分类统计结果
或者帮我设计下怎 ...

改用 Listview控件列表

Private Sub UserForm_Initialize()
Me.Caption = "欢迎使用【信息管理系统】！" & Space(80) & "今天是 " & Format(Now, "yyyy年m月d日 aaa")
Dim w&, i&, d As Object
Set d = CreateObject("Scripting.Dictionary")
Rem 生成列表，同时将分类写入字典
With ListView1
w = Int((.Width - 60) / 4)
.ColumnHeaders.Add , , "分类", w + 45
.ColumnHeaders.Add , , "永久", w
.ColumnHeaders.Add , , "长期", w
.ColumnHeaders.Add , , "短期", w
Set .SmallIcons = ImageList1
End With
For i = 2 To Sheet4.Range("B65536").End(3).Row
d(Sheet4.Range("B" & i).Value) = i - 1
ListView1.ListItems.Add , , Sheet4.Range("B" & i)
Next
Rem 对“数据”表按分类和保管期限汇总
Dim arr, x%, y%
arr = Sheet1.Range("A1").CurrentRegion
ReDim a(1 To d.Count, 1 To 3)
On Error Resume Next
For i = 2 To UBound(arr)
'x = IIf(arr(i, 3) = "永久", 1, IIf(arr(i, 3) = "长期", 2, 3)) 'iif 函数
x = Switch(arr(i, 3) = "永久", 1, arr(i, 3) = "长期", 2, arr(i, 3) = "短期", 3) '或 Swisse（开关）函数
y = d.Item(arr(i, 1))
a(y, x) = a(y, x) + 1
Next
Rem 写入统计列表
Dim Item As MSComctlLib.ListItem
For i = 1 To d.Count
Set Item = ListView1.ListItems(i)
Item.SubItems(1) = a(i, 1)
Item.SubItems(2) = a(i, 2)
Item.SubItems(3) = a(i, 3)
Next
End Sub

复制代码

一指禅62 · 发表于 2017-10-31 11:44

老鬼公公_31 发表于 2017-10-29 10:27
1.点主窗体，进入首页，老师请帮我完成统计结果的显示，每个页面显示不同的分类统计结果
或者帮我设计下怎 ...

文件管理测试.rar (74.86 KB, 下载次数: 35)

老鬼公公_31 · 发表于 2017-11-2 21:43

老师，请帮忙修改下这里的查询代码，进主页界--档案管理，里面三个查询窗口查找的结果都不相同，应该是分类、年度、期限这里查询都是精准查找，关建字是模糊查长，例如：查找文字类的有1740条，编辑和查询这2个窗口查找的结果都不对，在统计这个窗口查找的才对，请老师优化一直代码，谢谢！

一指禅62 · 发表于 2017-11-3 11:35

老鬼公公_31 发表于 2017-11-2 21:43
老师，请帮忙修改下这里的查询代码，进主页界--档案管理，里面三个查询窗口查找的结果都不相同，应该是分类 ...

这样较复杂的数据管理，建议运用数据库知识。

目前这样的查询代码可以写，但很冗长，写起来也很枯燥。作为练习可以琢磨。
我的思路是分三次检索：
第一次：按【分类检索】，从数据库检索出的结果（行号）缓存到数组 a1；
第二次：按【年度检索】，从a1中检索出的结果（行号）缓存到数组 a2；
第三次：按【保存期限检索】，从a2中检索出的符合条件的结果输出到列表控件。
论坛里高手很多，期待他们出手，或许有简洁的代码实现。

老鬼公公_31 · 发表于 2017-11-3 12:35

麻烦请论坛的高手帮忙解决，老师们，是该你们出手的时候了

		自动登录	找回密码
密码			免费注册

[原创] 一个简易文件登记检索系统