- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]根据窗口复选框生成报表 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=56941)
-- 发布时间：2014/9/15 18:08:00
-- [求助]根据窗口复选框生成报表
目的：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.foxdb |
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.xls |
根据窗口内复选框的勾选生成
附件内格式的EXCEL内容
请高手帮忙 模板代码或者按
钮代码该如何处理 麻烦了
[此贴子已经被作者于2014-9-15 18:09:54编辑过]
-- 发布时间：2014/9/15 19:23:00
--
你这样的设计显然不合理
Dim book As new XLS.Book
Dim sheet As XLS.Sheet = book.Sheets(0)
Dim r As Row = Tables("表A").Current
Dim arys() As String = {"第一列|第二列", "第三列|第四列", "第五列|第六列", "第七列|第八列", "第九列|第十列"}
Dim idx As Integer = 0
For Each s As String In arys
Dim ary() As String = s.Split("|")
If r(ary(0)) = True Then
sheet(idx, 0).Value = ary(0)
sheet(idx, 1).Value = r(ary(1))
idx += 1
End If
Next
book.save("d:\\test.xls")
Dim proc As new Process
proc.File = "d:\\test.xls"
proc.Start
-- 发布时间：2014/9/16 9:11:00
--
那请问斑竹 如何设计比较合理一些呢？
一条数据一行这样增加么
-- 发布时间：2014/9/16 9:31:00
--
但是使用者需要把所有相关数据都在一个数据行内
然后根据逻辑值进行报表的输出内容
-- 发布时间：2014/9/16 9:39:00
--
以下是引用lhlxl在2014-9-16 9:31:00的发言：
但是使用者需要把所有相关数据都在一个数据行内
但是使用者需要把所有相关数据都在一个数据行内
然后根据逻辑值进行报表的输出内容
那你就通过编写代码的方式实现，看2楼
-- 发布时间：2014/9/16 9:42:00
--
如果通过代码实现 是不是excel模板就不能用了
需要自己来设计了
-- 发布时间：2014/9/16 10:16:00
--
以下是引用lhlxl在2014-9-16 9:42:00的发言：
如果通过代码实现 是不是excel模板就不能用了
如果通过代码实现 是不是excel模板就不能用了
需要自己来设计了
你这种本来就是不能用excel模板的。
如果要用，你就要做一个正常的表，把用户填写的内容，拷贝到你的表中去。