请教如何消取预览中表体没内容但多出的页眉页脚 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

那些内容是多余的？截图说明一下

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

回2楼

日期控件TextChanged事件

Dim Filter As String

With e.Form.Controls("DateTimePicker1")

If .Value IsNot Nothing Then

If Filter >"" Then

Filter = Filter & " And "

End If

Filter = Filter & "日期 = #" & .Value & "#"

End If

End With

If Filter > "" Then

Tables("冲压车间工资表").Filter = Filter '设置筛选条件

Dim t As Table = Tables("冲压车间工资表")

Dim g As Subtotalgroup

t.SubtotalGroups.Clear()

t.GroupAboveData = False

t.TreeVisible = False

t.SpillNode = False

g = New Subtotalgroup

g.Aggregate = AggregateEnum.Sum

g.GroupOn = "日期"

g.TotalOn = "姓名,产品名称,生产工序,订单号,生产形式,数量,备注,废品数量,计时时间,,其他"

g.DateGroup = DateGroupEnum.Day

't.SubtotalGroups.Add(g)

g = New Subtotalgroup

g.Aggregate = AggregateEnum.Sum

g.GroupOn = "日期"

g.TotalOn = "姓名,产品名称,生产工序,订单号,生产形式,数量,备注,废品数量,计时时间,,其他"

g.DateGroup = DateGroupEnum.Month

g = New Subtotalgroup

g.Aggregate = AggregateEnum.Sum

g.GroupOn = "*"

g.TotalOn = "姓名,产品名称,生产工序,订单号,生产形式,数量,备注,废品数量,计时时间,,其他"

't.SubtotalGroups.Add(g)

t.Subtotal()

t.AutoSizeRows

End If

加一句

......

nDoc.PageHeader = rx '作为页眉使用

ndoc.PageFooter = rj

ndoc.PageSetting.Landscape = True

ndoc.Preview()

直接使用23楼的项目吧，为了方便代码的处理，已经把窗口的控件放到一个panel里了。

或者你把23楼的窗口导出来，还原到你的项目中：http://www.foxtable.com/webhelp/scr/2413.htm

调整一下显示列的宽度

姓名|60|产品名称|130|生产工序|80|备注|200|订单号|120|生产形式|80|数量|70|废品数量|80|计时时间|80|其他|60

把你改过后的项目和logo图片一起上传上来

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

此主题相关图片如下：2.png

此主题相关图片如下：1.png

[此贴子已经被作者于2017/2/27 22:54:10编辑过]

去掉窗口1的DropDownClosed事件代码

DropDownClosed事件和部门都没有半毛钱的关系

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