Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!
共25 条记录, 每页显示 10 条, 页签: [1] [2][3]
[浏览完整版]

标题：分级导出Excel问题
1楼
飞云 发表于：2024/2/29 16:24:00
图片点击可在新窗口打开查看
老师您好，想要下面的导出效果：谢谢！
图片点击可在新窗口打开查看
2楼
有点蓝 发表于：2024/2/29 16:26:00
使用模板导出：http://www.foxtable.com/webhelp/topics/1530.htm
3楼
飞云 发表于：2024/2/29 16:30:00
层数不确定，一层列，层数=列数，相同的合并
4楼
有点蓝 发表于：2024/2/29 16:33:00
一样的
5楼
飞云 发表于：2024/2/29 16:38:00
层数不同模版怎么设置？没明白。
6楼
有点蓝 发表于：2024/2/29 17:13:00
请上传实例说明。
7楼
飞云 发表于：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
'请问老师红框的行如何避免生成！谢谢！
8楼
有点蓝 发表于：2024/2/29 17:20:00
请上传实例测试
9楼
飞云 发表于：2024/2/29 17:32:00
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.zip

10楼
有点蓝 发表于：2024/2/29 20:40:00
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.zip

共25 条记录, 每页显示 10 条, 页签: [1] [2][3]
Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .03613 s, 4 queries.