求助：excel报表中的以下空白字样 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求助：excel报表中的以下空白字样

共有3154人关注过本帖树形打印复制链接主题：求助：excel报表中的以下空白字样

刘异

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

等级：一尾狐帖子：429 积分：4658 威望：0 精华：0 注册：2015/11/23 21:29:00

求助：excel报表中的以下空白字样 发帖心情

Post By：2021/3/30 20:19:00 [显示全部帖子]

老师好：在生成EXCEL报表时有固定了行数，可不可以象下图这样，如果以下行没有内容，可动态显示“以下空白”的文字

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

刘异

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

等级：一尾狐帖子：429 积分：4658 威望：0 精华：0 注册：2015/11/23 21:29:00

Post By：2021/3/30 21:32:00 [显示全部帖子]

Dim Book As New XLS.Book(ProjectPath & "Attachments\销售合同.xls")

Dim fl As String ="D:\销售合同表\销售合同- "& Tables("销售合同主表").Current("客户名称") &"-" & Tables("销售合同主表").Current("合同单号") &" "&".xls"

Dim Sheet As XLS.Sheet = Book.Sheets(0)

For i As Integer = 0 To 15

If Sheet(i, 3).Value = "" Then

Sheet(i, 4).Value = "以下空白"

End If

Book.Build() '生成细节区

Book.Save(fl) '保存工作簿

Dim Proc As New Process '打开工作簿

Proc.File = fl

Proc.Start()

老师：这样是显示在第15行，出现‘以下空白’，怎样改一下呢？

刘异

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

等级：一尾狐帖子：429 积分：4658 威望：0 精华：0 注册：2015/11/23 21:29:00

Post By：2021/3/31 9:13:00 [显示全部帖子]

感谢老师，可以了，

有个地方不懂：为什么是8呢？

For i As Integer = 8 To Sheet.Rows.Count -1

主题：求助：excel报表中的以下空白字样