- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 分级导出Excel问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=190722)
-- 发布时间：2024/2/29 16:24:00
-- 分级导出Excel问题
老师您好，想要下面的导出效果：谢谢！
-- 发布时间：2024/2/29 16:26:00
--
使用模板导出：http://www.foxtable.com/webhelp/topics/1530.htm
-- 发布时间：2024/2/29 16:30:00
--
层数不确定，一层列，层数=列数，相同的合并
-- 发布时间：2024/2/29 16:33:00
--
一样的
-- 发布时间：2024/2/29 16:38:00
--
层数不同模版怎么设置？没明白。
-- 发布时间：2024/2/29 17:13:00
--
请上传实例说明。
-- 发布时间：2024/2/29 17:17:00
--
For Each r As Row In Tables("物料清单B").rows
Dim s As String = r("物料")
Do While r.Parent IsNot Nothing
r = r.Parent
s = r("物料") & ">" & s
Loop
Dim dr As Row = Tables("表K").AddNew
If s.Split(">").Length > 0 Then
For i As Integer = 0 To s.Split(">").Length - 1
dr("第" & i + 1) = s.Split(">")(i)
Next
End If
Next
With Tables("表K")
.MergeMode = MergeModeEnum.Free
.MergeCols.Clear()
.MergeCols.Add("第1")
.MergeCols.Add("第2")
.MergeCols.Add("第3")
.MergeCols.Add("第4")
.MergeCols.Add("第5")
.MergeCols.Add("第6")
.MergeCols.Add("第7")
.MergeCols.Add("第8")
.MergeCols.Add("第9")
.MergeCols.Add("第10")
.MergeSort = "第1,第2,第3,第4,第5,第6,第7,第8,第9,第10"
.AllowMerge = True
End With
\'请问老师红框的行如何避免生成！谢谢！
-- 发布时间：2024/2/29 17:20:00
--
请上传实例测试
-- 发布时间：2024/2/29 17:32:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.zip |
-- 发布时间：2024/2/29 20:40:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目1.zip |