主题：请教如何消取预览中表体没内容但多出的页眉页脚

下拉窗口本来想做一个安部门分的目录树效果的，但不知怎做。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:冲压车间工资表1.zip

我把程序改为这样，下拉窗口选项只显示在职人员姓名了：

Dim txt As String = e.Form.DropDownBox.Text
Dim tbl As Table = Tables("窗口1_Table1")
If txt = "" Then
    'tbl.Filter = "在职情况 = '在职' or 在职情况 is not null"
    tbl.Filter = "在职情况 = '在职'"
Else
    txt = "'%" & txt & "%'"
    tbl.Filter = "在职情况 = '在职' and (所属部门 Like " & txt & " Or 姓名 Like " & txt & ")"
End If
e.Form.DropDownBox.Select() '将输入焦点返回下拉列表框

 

 

　　现在没点选任何选项，点冲压车间工资表中的任何地姓名列自动出现姓名，另没有我要的安输入的关键字自动筛选关联选项功能。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:冲压车间工资表1.zip

这个连下拉窗口都没有了！我想做一个安所属部门为一级节点，姓名为二级节点的下拉目录树，在冲压车间工资表姓名列输入一个姓，能自动带出在职的所有同姓的姓名任选。

在列属性设[在职情况]='在职'，允许直接输入、允许启用输入助手能实现这样的要求，只是目录树只有一个姓名选项，不能安所属部门下设姓名。

把部门列放到前面就行了，一样达到分部门的要求。不必要非得纠结于使用目录树，目录树不好控制

姓名下拉选项能否安所属部门分类排列？

 

控制排序不就好了？ DropDownOpened事件控制

 

Dim tbl As Table = Tables("窗口1_Table1")

tbl.Sort = "所属部门, 姓名"

Dim txt As String = e.Form.DropDownBox.Text
Dim tbl As Table = Tables("窗口1_Table1")
If txt = "" Then
    tbl.Filter = "在职情况 = '在职'"
Else
    txt = "'%" & txt & "%'"
    tbl.Filter = "在职情况 = '在职' and (所属部门 Like " & txt & " Or 姓名 Like " & txt & ")"
Tables("员工姓名表").Sort = "所属部门"
tbl.Sort = "所属部门, 姓名"
End If
e.Form.DropDownBox.Select() '将输入焦点返回下拉列表框

 

这样写我试过，排序没反应。

 

此主题相关图片如下：捕获.jpg