以文本方式查看主题

-  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=87144)

--  作者:hongyefor
--  发布时间:2016/7/4 18:18:00
--  Excel报表制作的问题

在Excel报表制作过程中

派工单号 开头包含79931000或者开头包含3208114000显示

在模版里输入

<派工单号 Like \'79931000%\'or 派工单号  Like \'3208114000%\' >

问题出来了

按年份或者月份显示的时候不对,这是为什么?

 


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

这是文件名2016601的


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

这是文件名20151201的

 


 


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

报表上只有一个该数据

[此贴子已经被作者于2016/7/4 18:26:00编辑过]

--  作者:大红袍
--  发布时间:2016/7/4 18:31:00
--  

试试

 

<派工单号 Like \'79931000%\' or 派工单号 Like \'3208114000%\' >

 

不行的话,做个实例看看


--  作者:hongyefor
--  发布时间:2016/7/4 19:15:00
--  

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:cs.table

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:cdsh.xls

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:cdsh2.xls

 

帮我看看吧


--  作者:大红袍
--  发布时间:2016/7/4 19:48:00
--  

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:cdsh2.xls


--  作者:hongyefor
--  发布时间:2016/7/8 11:24:00
--  

试了2天,不是要改cdsh2.xls,要改的是cdsh.xls

我的意思是在当选取窗口中的("ComboBox1")("ComboBox2"),在窗口中Table1显示所相应的数据(已完成)

单击Button1后生成2个经过筛选的报表(目标文件为cdsh.xls,cdsh2.xls)分别为:****.pdf和 ****xls

现在的问题是生成出来的****.pdf文件没有问题,但是****xls文件不是按照筛选出来的结果去生成的

("ComboBox1")("ComboBox2")是定向与第三和第四列生成的分别代表年和月,但是cdsh.xls并没有按照年和月筛选


--  作者:hongyefor
--  发布时间:2016/7/8 11:34:00
--  

我看过了,但是我要的不是这个面板,是另外的一个目标文件为cdsh.xls,但是你发过来的cdsh2.xls,


图片点击可在新窗口打开查看此主题相关图片如下:cw.jpg
图片点击可在新窗口打开查看cdsh2.xls


图片点击可在新窗口打开查看此主题相关图片如下:cw2.jpg
图片点击可在新窗口打开查看cdsh.xls

这两个文件不一样的


--  作者:大红袍
--  发布时间:2016/7/8 11:41:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:downloads.zip


--  作者:hongyefor
--  发布时间:2016/7/8 11:53:00
--  

不同步啊

 


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

--  作者:大红袍
--  发布时间:2016/7/8 12:19:00
--  

Dim wbr As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
wbr.AddRess = Nothing

Dim r As Row = Tables("窗口1_Table1").Current
Dim tmp As String = ProjectPath & "Attachments\\cdsh2.xls"
Dim tmp1 As String = ProjectPath & "Attachments\\cdsh.xls"
Dim rpt1 As String = "d:/tpcd/"+(r("第三列")) + (r("第四列"))   +"01.xls"
Dim rpt As String = "d:/tpcd/"+(r("第三列")) + (r("第四列"))   +"清单.pdf"
Dim Book As New XLS.Book(tmp)
Book.Build()
Book.SaveToPDF(rpt) \'保存为pdf文件
Dim Book1 As New XLS.Book(tmp1)
Book1.Build()
Book1.Save(rpt1)\'保存为pdf文件

wbr.AddRess = rpt

 

 


--  作者:hongyefor
--  发布时间:2016/7/8 14:20:00
--  
还有一个问题,有没有办法使cdsh.xls ,去掉第一行空行啊