Foxtable(狐表)用户栏目专家坐堂 → 01.窗口Table中的数据如何输出到Excel报表中


  共有11614人关注过本帖树形打印复制链接

主题:01.窗口Table中的数据如何输出到Excel报表中

帅哥哟,离线,有人找我吗?
包头123
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1049 积分:8150 威望:0 精华:0 注册:2011/10/11 11:13:00
01.窗口Table中的数据如何输出到Excel报表中  发帖心情 Post By:2011/12/18 17:03:00 [显示全部帖子]

标题:窗口Table中的数据如何输出到Excel报表中。

我的软件中,窗口Table的数据,想通过Excel报表的方式,打印出来。

为题:如何将窗口Table的表名(窗口1_Table1)传送到Excel报表中。

 

 


 回到顶部
帅哥哟,离线,有人找我吗?
包头123
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1049 积分:8150 威望:0 精华:0 注册:2011/10/11 11:13:00
  发帖心情 Post By:2011/12/19 10:00:00 [显示全部帖子]

02.窗口Table中的数据如何输出到Excel报表中

我在窗口中,建立了一个分区面板(SplitContainer1),左边是树结构,右边是窗口Table,Table中的内容与左边的树结构关联的。用户点击树结构不同的节点,Table中显示不同的内容。

因此,我的想法就是把窗口Table的名称,动态传给Excel报表,然后通过EXCEL报表,很容易打印出Table中的内容来。

EXCEL报表打印表格挺简单的,我想好好利用一下。

------------------------------------------------------------------

帮助中,提到了按照下面的方法可以做:

引用Var变量

可以在Excel报表中引用Var变量,格式为:

[!Var变量名称]

Var变量可以参与表达式计算,例如:

<"起始日期:" & [!起始日期]>

------------------------------------------------------------------

但这个方法,只能传递A列之外的内容,不能动态修改A列中的数据表的名称。

 

版主有什么好办法吗?

(yangming的办法我可以试一下,非常感谢,但我目前想通过Excel报表实现)


 回到顶部
帅哥哟,离线,有人找我吗?
包头123
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1049 积分:8150 威望:0 精华:0 注册:2011/10/11 11:13:00
  发帖心情 Post By:2011/12/19 10:04:00 [显示全部帖子]

03.顺便问一下,Foxtable的群号是多少了?

我想加入。


 回到顶部
帅哥哟,离线,有人找我吗?
包头123
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1049 积分:8150 威望:0 精华:0 注册:2011/10/11 11:13:00
  发帖心情 Post By:2011/12/19 11:08:00 [显示全部帖子]

04.版主:请看看下面的语句哪些地方不对,系统提示Sheet(0) = "<任务提醒1_Table1>"不对

e.Form.Controls("WebBrowser1").Visible = True                               '设置WebBrowser1为可见

Dim ProjectPath As String = "D:\02.鹿王二期工程\92.任务管理\90.任务管理软件\"

Dim Book As New XLS.Book(ProjectPath & "Attachments\任务表.xls")
Dim fl As String = ProjectPath & "Reports\任务表.xls"

Dim Sheet As XLS.Sheet = Book.sheets(0)

Sheet(0) = "<任务提醒1_Table1>"                      ‘版主:这里应该怎么写呢?你给出的细节区X,细节区Y ,应该放什么值呢?  
Book.Build()                                                      '生成细节区
Book.Save(fl)                                                    '保存工作簿

e.Form.Controls("WebBrowser1").AddRess = fl


 回到顶部
帅哥哟,离线,有人找我吗?
包头123
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1049 积分:8150 威望:0 精华:0 注册:2011/10/11 11:13:00
  发帖心情 Post By:2011/12/19 11:28:00 [显示全部帖子]

05.版主,解决了。语句写成下面的就行了。

 

Sheet(3,0).Vlaue = "<任务提醒1_Table1>" 


 回到顶部