- 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=161820)
-- 发布时间：2021/3/30 20:19:00
-- 求助：excel报表中的以下空白字样
老师好：在生成EXCEL报表时有固定了行数，可不可以象下图这样，如果以下行没有内容，可动态显示“以下空白”的文字
此主题相关图片如下：qq图片20210330201358.png
-- 发布时间：2021/3/30 20:29:00
--
只能生成报表后另外使用代码设置，类似：http://www.foxtable.com/webhelp/topics/1144.htm
遍历所有execl行，判断型号列单元格为空的，就添加“以下空白”的文字
-- 发布时间：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
Next
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Start()
老师：这样是显示在第15行，出现‘以下空白’，怎样改一下呢？
-- 发布时间：2021/3/30 21:41:00
--
Dim Book As New XLS.Book(ProjectPath & "Attachments\\销售合同.xls")
Dim fl As String ="D:\\销售合同表\\销售合同- "& Tables("销售合同主表").Current("客户名称") &"-" & Tables("销售合同主表").Current("合同单号") &" "&".xls"
Book.Build() \'先生成细节区
Dim Sheet As XLS.Sheet = Book.Sheets(0)
For i As Integer = 8 To Sheet.Rows.Count -1
If Sheet(i, 3).text = "" Then
Sheet(i, 4).Value = "以下空白"
exit for
End If
Next
Book.Save(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Start()
-- 发布时间：2021/3/31 9:13:00
--
感谢老师，可以了，
有个地方不懂：为什么是8呢？
For i As Integer = 8 To Sheet.Rows.Count -1
-- 发布时间：2021/3/31 9:37:00
--
1楼的图，自己数数，从第一行到标题行总共有几行，这些有必要判断吗？