- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 01.窗口Table中的数据如何输出到Excel报表中 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=15250)
-- 发布时间：2011/12/18 17:03:00
-- 01.窗口Table中的数据如何输出到Excel报表中
标题：窗口Table中的数据如何输出到Excel报表中。
我的软件中，窗口Table的数据，想通过Excel报表的方式，打印出来。
为题：如何将窗口Table的表名（窗口1_Table1）传送到Excel报表中。
-- 发布时间：2011/12/18 19:31:00
--
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
MessageBox.Show("你要保存为:" & dlg.FileName,"提示") \'提示用户选择的文件
End If
Dim dt As Table = Tables("窗口1_Table1")
Dim Book As New XLS.Book \'定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) \'引用工作簿的第一个工作表
For c As Integer = 0 To dt.Cols.Count -1 \'添加列标题
Sheet(0, c).Value = dt.Cols(c).Name
Next
For r As Integer = 0 To dt.Rows.Count - 1 \'填入数据
For c As Integer = 0 To dt.Cols.Count -1
Sheet(r +1, c).Value = dt.rows(r)(c)
Next
Next
Book.Save(dlg.FileName)
Dim Result As DialogResult
Result = MessageBox.Show("已保存,需要打开文件吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
Dim Proc As New Process
Proc.File = dlg.FileName
Proc.Start()
Else
End If
-- 发布时间：2011/12/18 19:39:00
--
也可以直接打印窗口表中的数据,比如,我做过的一个工资表中的按钮,当查询后,打印查询结果的一个专业报表的代码:
Dim s As String
If e.Form.Controls("Label6").text = "当月工资表" Then
s = Tables("主表")(0,0) & Format(Date.Today,"yyyy年MM月") & "工资表"
Else
s = e.Form.Controls("Label6").text
End If
Dim doc As New PrintDoc \'定义一个新报表
Dim rt As New prt.RenderTable \'定义一个新表格
Dim rx As New prt.RenderText()
Dim tb As Table = Tables("工资_Table1")
Dim ColNames As New List(Of String)
rx.Text= Chr(13) & Chr(10) & s & Chr(13) & Chr(10) & Chr(13) & Chr(10)
rx.Style.TextAlignHorz=prt.AlignHorzEnum.Center
rx.Style.TextAlignVert = prt.AlignVertEnum.Top
rx.Style.FontSize =14
rx.Style.FontBold = True \'字体加粗
rx.Style.F
Doc.Body.Children.Add(rx)
For Each cl As Col In tb.Cols \'排除隐藏列
If cl.Visible Then
ColNames.Add(cl.Name)
End If
Next
rt.Style.Font = tb.Font
For c As Integer = 0 To ColNames.Count - 1 \'逐列设置和填入内容
rt.Cells(0,c).Text = ColNames(c) \'列名作为标题
rt.Cells(0,c).Style.TextAlignHorz = prt.AlignHorzEnum.Center \'标题内容水平居中
rt.Cols(c).Width = tb.Cols(ColNames(c)).PrintWidth \'列宽等于实际列宽
If tb.Cols(ColNames(c)).IsNumeric Then \'如果是数值列
rt.Cols(c).Style.TextAlignHorz = prt.AlignHorzEnum.Right \'数据水平靠右
Else
rt.Cols(c).Style.TextAlignHorz = prt.AlignHorzEnum.Center
End If
For r As Integer = 0 To tb.Rows.Count -1 \'开始填入该列内容
rt.Cells(r + 1, c).Text = tb.Rows(r)(ColNames(c))
Next
Next
Dim cnt As Integer = rt.Rows.Count
rt.Cells(cnt,1).Text = "总计"
For c As Integer = 0 To ColNames.Count - 1 \'逐列设置和填入内容
If tb.Cols(ColNames(c)).IsNumeric And ColNames(c)<> "工号" Then
rt.Cells(cnt,c).Text = tb.Compute("Sum(" & ColNames(c) & ")")
End If
Next
rt.rows(0).Height= 8
rt.Style.Gridlines.All = New prt.Linedef(Color.Gray) \'灰色网格线
rt.CellStyle.Spacing.All = 0.5 \'单元格内距设为0.5毫米
rt.Rows(0).Style.TextAlignHorz = prt.AlignHorzEnum.Center \'第一行内容水平居中
rt.RowGroups(0,1).Header = prt.TableHeaderEnum.All \'利用行组,将第一行设为表头.
rt.Style.TextAlignVert = prt.AlignVertEnum.Center \'垂直居中
doc.PageSetting.Landscape = True \'横向打印
Doc.PageSetting.LeftMargin = 15 \'设置左边距
Doc.PageSetting.RightMargin = 15 \'设置右边距
Doc.Body.Children.Add(rt) \'将表格加入到报表
doc.Preview()
-- 发布时间：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报表实现）
-- 发布时间：2011/12/19 10:04:00
--
03.顺便问一下，Foxtable的群号是多少了？
我想加入。
-- 发布时间：2011/12/19 10:12:00
--
动态修改细节区定义的名称，然后再Build:
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(细节区X,细节区Y) = "<表名>"
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Start()
-- 发布时间：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
-- 发布时间：2011/12/19 11:28:00
--
05.版主，解决了。语句写成下面的就行了。
Sheet(3，0).Vlaue = "<任务提醒1_Table1>"
-- 发布时间：2011/12/19 11:50:00
--
