多层表头错误 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

With wb.AddTable("","Table1")

Dim nms() As String = {"部门名称","本月目标","今日_进店人数","今日_成交人数","今日_成交金额","本月_累计进店人数","本月_累计成交人数","本月_累计成交金额","本月_累计达成率"}

.Head.AddRow("部门名称","本月目标","今日","今日","今日","本月","本月","本月","本月") '第一层标题

.Head.AddRow("部门名称","本月目标","进店人数","成交人数","成交金额","进店人数","成交人数","成交金额","达成率") '第二层标题

.Head.AddRow(nms)

For Each r As DataRow In DataTables("每日业绩明细").sqlSelect("", "", "日期 Desc")

'For Each r As DataRow In DataTables("终端用户").sqlSelect("[报备人] = '" & name & "'", "", "日期 Desc")

With .Body.AddRow()

For Each nm As String In nms

.AddCell(r(nm))

End With

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

End With

e.WriteString(wb.Build)

要这样添加的，你要添加多少层，多少列，都是这样添加。全部都要写出来才行。

.Head.AddRow("部门名称","本月目标","今日","今日","今日","本月","本月","本月","本月") '第一层标题

.Head.AddRow("部门名称","本月目标","进店人数","成交人数","成交金额","进店人数","成交人数","成交金额","达成率") '第二层标题

我是这样添加的呀

这个不是不要显示吗但是他显示出来了。

你看下截图

[此贴子已经被作者于2018/4/4 15:02:29编辑过]

你看不懂代码？

.Head.AddRow("部门名称","本月目标","今日","今日","今日","今日","今日","本月","本月","本月","本月") '第一层标题

.Head.AddRow("部门名称","本月目标","进店人数","成交人数","成交金额","进店人数","累计", "成交人数","成交金额","达成率","累计") '第二层标题

[此贴子已经被作者于2018/4/4 15:10:48编辑过]

.Head.AddRow("部门名称","本月目标","今日","今日","今日","今日","今日","本月","本月","本月","本月") '第一层标题

.Head.AddRow("部门名称","本月目标","进店人数","成交人数","成交金额","进店人数","累计", "成交人数","成交金额","达成率","累计") '第二层标题

按照你的方法还是不行现在还是三层表头多出的字段没搞明白什么需求

.Head.AddRow("部门名称","本月目标","今日","今日","今日","本月","本月","本月","本月") '第一层标题对应三个今日四个本月

.Head.AddRow("部门名称","本月目标","进店人数","成交人数","成交金额","进店人数","成交人数","成交金额","达成率") '第二层标题

这是帮助原吗对应的字段

'下面这个数组,用实际的列名.

Dim nms() As String = {"产品","东部_一季度","东部_二季度","东部_三季度","东部_四季度","南部_一季度","南部_二季度","南部_三季度","南部_四季度"}

.Head.AddRow("产品","东部","东部","东部","东部","西部","西部","西部","西部") '第一层标题

.Head.AddRow("产品","一季度","二季度","三季度","四季度","一季度","二季度","三季度","四季度") '第二层标题

删除你这句代码啊 .Head.AddRow(nms)

主题：多层表头错误