以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于打印出现空格行的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=72536)

--  作者:sara
--  发布时间:2015/7/31 17:04:00
--  关于打印出现空格行的问题
下面是代码,上面是结果,我希望中间没有空行,并且每一种产品ID只显示一个,重复的去掉
图片点击可在新窗口打开查看此主题相关图片如下:3.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:4.png
图片点击可在新窗口打开查看

--  作者:sara
--  发布时间:2015/7/31 17:19:00
--  
解答下这个啊,亲,最好带代码,你说的父表清空,看不明白啊
--  作者:大红袍
--  发布时间:2015/7/31 17:22:00
--  

1、空行问题,取决于你的模板设计。下面和上面没有空行就行;

 

2、重复问题,要生成以后,动态处理删除


--  作者:大红袍
--  发布时间:2015/7/31 17:23:00
--  
以下是引用sara在2015/7/31 17:19:00的发言:
解答下这个啊,亲,最好带代码,你说的父表清空,看不明白啊

 

无语,你要先上传实例啊


--  作者:sara
--  发布时间:2015/7/31 17:27:00
--  

1 你看模板中间只是多了如图这一行,但是这个是必须的啊,空格 问题怎么解决

2.什么代码,我就是不会写你说的代码啊,我需要产品ID保留一个,重复的去掉,模板出来了,代码不会写才请教的

 


图片点击可在新窗口打开查看此主题相关图片如下:5.png
图片点击可在新窗口打开查看

--  作者:sara
--  发布时间:2015/7/31 17:31:00
--  

Dim Book As New XLS.Book(ProjectPath & "Attachments\\订单明细.xls")
Dim fl As String = ProjectPath & "Reports\\订单明细.xls"
Dim App As New MSExcel.Application
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.Cells
Rg.EntireRow.AutoFit  \'自动调整行高
App.Visible = True

这是我的打印代码


--  作者:大红袍
--  发布时间:2015/7/31 17:38:00
--  

1、可以把那一行隐藏,下面的行也影响生产;

 

2、不会写你上传具体例子啊。


--  作者:大红袍
--  发布时间:2015/7/31 17:38:00
--  
说了一大堆,一点实质性的东西都没有,上传项目有多难。
--  作者:sara
--  发布时间:2015/8/1 10:52:00
--  
这个是项目,您可以试下
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目8.rar


--  作者:sara
--  发布时间:2015/8/1 10:59:00
--  
大红袍老师,项目发了,您测试一下吧,我想把重复的产品ID去掉,并且不要空行