01.窗口Table中的数据如何输出到Excel报表中 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

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

为题：如何将窗口Table的表名（窗口1_Table1）传送到Excel报表中。

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

也可以直接打印窗口表中的数据,比如,我做过的一个工资表中的按钮,当查询后,打印查询结果的一个专业报表的代码:

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()

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

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

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

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

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

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

引用Var变量

可以在Excel报表中引用Var变量，格式为：

[!Var变量名称]

Var变量可以参与表达式计算，例如：

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

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

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

版主有什么好办法吗？

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

03.顺便问一下，Foxtable的群号是多少了？

我想加入。

动态修改细节区定义的名称，然后再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()

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

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

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

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