- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- excel报表编程 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=95872)
-- 发布时间：2017/2/7 16:23:00
-- excel报表编程
有模板MUBAN导出，导出的条件是，A表中upload一行为FALSE。
导出后uploadtime为导出时间，同时upload改成TRUE。
因为没有现成的代码可以修改，都是其他代码改，最后都没有实现到效果。
望各位写个代码，谢谢。。
| Code | Vendor | Unit | Rate | date | upload | uploadtime |
| 0047400 | SZH0007 | 1 | 13.8375 | 2017/1/5 | TRUE | 2017/1/5 |
| 0047401 | SZH0007 | 1 | 13.8375 | 2017/1/5 | TRUE | 2017/1/5 |
| 0047402 | SZH0008 | 1 | 13.8375 | 2017/1/2 | TRUE | 2017/1/2 |
| 0043280 | SZH0007 | 1 | 3.06475 | 2017/1/5 | FALSE | 2017/1/5 |
| 0043281 | SZH0007 | 1 | 4.4075 | 2017/1/6 | TRUE | 2017/1/6 |
| 0043282 | SZH0007 | 1 | 6.52925 | 2017/1/6 | TRUE | 2017/1/6 |
| 0043282 | SZH0008 | 1 | 2 | 2017/1/6 | FALSE | |
| 0043283 | SZH0007 | 1 | 8.08725 | 2017/1/6 | TRUE | 2017/1/6 |
| 0043283 | SZH0007 | 1 | 3 | 2017/1/12 | TRUE | 2017/1/12 |
| 0043284 | SZH0007 | 1 | 3.06475 | 2017/1/17 | FALSE | |
| 0043260 | SZH0008 | 1 | 5 | 2017/1/17 | TRUE | 2017/1/17 |
| 0043261 | SZH0008 | 1 | 4.4075 | 2017/1/17 | TRUE | 2017/1/17 |
| 0043262 | SZH0007 | 1 | 6.52925 | 2017/1/17 | FALSE | |
| 0043263 | SZH0007 | 1 | 8.08725 | 2017/1/17 | TRUE | 2017/1/17 |
-- 发布时间：2017/2/7 16:26:00
--
用excel模板来做
http://www.foxtable.com/webhelp/scr/2877.htm
http://www.foxtable.com/webhelp/scr/0201.htm
http://www.foxtable.com/webhelp/scr/1388.htm
-- 发布时间：2017/2/7 16:41:00
--
求按钮代码。
就是修改了好几次，都没有成功。
-- 发布时间：2017/2/7 16:55:00
--
完全不需要写按钮代码的啊。设置好模板即可。
不会做，上传实例。
-- 发布时间：2017/2/8 11:42:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目2.rar |
有模板MUBAN导出，导出的条件是，订单明细表中upload一行为FALSE。
导出后uploadtime为导出时间，同时upload改成TRUE。
-- 发布时间：2017/2/8 11:53:00
--
Dim Book As New XLS.Book(ProjectPath & "Attachments\\muban.xls")
Dim fl As String = ProjectPath & "Reports\\muban.xls"
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Start()
DataTables("订单明细").ReplaceFor("uploadtime",Date.Today,"upload=false")
DataTables("订单明细").ReplaceFor("upload",True,"upload=false")
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:muban.xls |
-- 发布时间：2017/2/8 11:54:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目2.zip |
-- 发布时间：2017/2/8 12:58:00
--
这个就只导出一个订单.订单明细。
我想导出的是所有订单的明细。
-- 发布时间：2017/2/8 14:11:00
--
测试没有问题，表中所有加载的upload=false的数据都导出来了
-- 发布时间：2017/2/8 14:47:00
--
好奇怪，我把代码全部复制进去。只能显示一条订单明细，不是所有订单明细。。
直接下载你修改的文件，就可以实现。