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

老鬼公公_31 · 发表于 2017-10-20 23:43

现在上了附件，请老师帮忙

一指禅62 · 发表于 2017-10-21 09:18

老鬼公公_31 发表于 2017-10-20 23:43
现在上了附件，请老师帮忙

照猫画虎啊，比如这段代码，红色标识即是您需要的。

Private Sub UserForm_Initialize()
Dim a, b
a = Array("政府文", "政府办", "常委会议纪要", "主席会议纪要", "工作情况", "其他")
b = Array("短期", "长期", "永久")
Set TreeView1.ImageList = ImageList2
Set TreeView2.ImageList = ImageList2
Set TreeView3.ImageList = ImageList2
For i = 0 To UBound(a)
      TreeView1.Nodes.Add , , a(i), a(i), , 3
Next
ComboBox1.List = a
For i = 1960 To Year(Date)
      ComboBox2.AddItem i
      TreeView2.Nodes.Add , , i & "年", i, , 3
Next
TreeView2.Nodes(TreeView2.Nodes.Count).Selected = True
For i = 0 To UBound(b)
      TreeView3.Nodes.Add , , b(i), b(i), , 3
Next
DTPicker1.Value = Date
With ListView1
   .ColumnHeaders.Add , , "编号", 36
   .ColumnHeaders.Add , , "标题", 400
   .ColumnHeaders.Add , , "封发日期", 90
   .ColumnHeaders.Add , , "机关代字", 0
   .ColumnHeaders.Add , , "发文年度", 0
   Set .SmallIcons = ImageList1
End With
Call cmd新增_Click
End Sub

只有动手，才能学有所获

老鬼公公_31 · 发表于 2017-10-21 09:38

嘿嘿，谢谢老师，我慢慢学习中

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

不知道那里不对,显示不了

一指禅62 · 发表于 2017-10-21 16:01

本帖最后由一指禅62 于 2017-10-21 16:14 编辑

Private Sub TreeView_Click()
Dim fwzh$, fwnd%, fwqx$
On Error Resume Next
Rem 显示筛选结果
arr = Sheet1.Range("A1").CurrentRegion
fwzh = TreeView1.SelectedItem.Text
fwnd = Val(TreeView2.SelectedItem.Text)
fwqx = TreeView3.SelectedItem.Text
ListView1.ListItems.Clear
For i = 1 To UBound(arr)
   If arr(i, 1) Like "*" & fwzh & "*" And arr(i, 2) = fwnd And arr(i, 3) Like "*" & fwqx & "*" Then
      Call ListView_Add(i)
   End If
Next
Rem 整理文本框、复合框和按钮状态
ComboBox1.Text = "" ' fwzh
ComboBox2.Text = "" ' fwnd
TextBox1.Text = ""
TextBox2.Text = ""
cmd修改.Enabled = False
cmd删除.Enabled = False
Call CtlEnabled(False)
End Sub

红色标识部分是修改部分、添加的代码及注释

文件管理.rar (34.64 KB, 下载次数: 40)

一指禅62 · 发表于 2017-10-21 16:43

老鬼公公_31 发表于 2017-10-21 11:27
不知道那里不对,显示不了

代码稍加修改，检索更加方便。

文件管理.rar (34.84 KB, 下载次数: 91)

老鬼公公_31 · 发表于 2017-10-21 19:44

可以啦，谢谢老师

老鬼公公_31 · 发表于 2017-10-21 19:48

后面有加什么控件了，不打了，只能复制代码过来用

老鬼公公_31 · 发表于 2017-10-22 20:24

老师，listbox里面的时间排列能倒序排列吗？

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

老师，是TreeView2里面的年度时间排列能倒序排列吗？最上面是全部、2017、2016这样

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

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

最新热点 /1