专业表格，设置乡下合并行，如何自动调整行高 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 专业表格，设置乡下合并行，如何自动调整行高

共有2278人关注过本帖树形打印复制链接主题：专业表格，设置乡下合并行，如何自动调整行高

有点色

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/4/26 10:41:00 [显示全部帖子]

只要你设置了列宽而不设置行高，自动的，就会按照自动行高来显示的。

具体问题，请单独做个实例发上来。

有点色

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/4/26 12:13:00 [显示全部帖子]

把这句代码删除

rt.Cells(r + 1, c).VertSplitBehavior = prt.CellSplitBehaviorEnum.Copy '换页后重复单元格

有点色

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/4/27 17:45:00 [显示全部帖子]

            If Merge Then
                rt.Cells(lr,c).SpanRows = rt.Cells(lr,c).SpanRows + 1
                rt.Cells(lr, c).VertSplitBehavior = prt.CellSplitBehaviorEnum.Copy '换页后重复单元格
            Else
                rt.Cells(r + 1, c).Text = tb.Rows(r)(ColNames(c))
                lr = r + 1
            End If

下一主题 >> << 上一主题

主题：专业表格，设置乡下合并行，如何自动调整行高