主题：编制报表

以下黄色代码怎么修改

Dim tb As Table = CurrentTable
msgbox(tb.name & "报表打印")
Dim dtb As New DataTableBuilder("& tb.name & "报表打印"")
dtb.AddDef("字段名", Gettype(String), 255)
dtb.AddDef("是否打印", Gettype(Boolean))
dtb.AddDef("宽度", Gettype(Integer))
dtb.AddDef("顺序", Gettype(Integer))
dtb.Build()
MainTable= Tables(tb.name & "报表打印")

怎么能够表控件动态绑定表代码如下：e.Form.Controls("Table1").Table = Tables("科目余额")

参考

 

http://www.foxtable.com/webhelp/scr/1909.htm

 

我是希望能够通过窗口自动设置并打印报表，我的想法是建立一个临时表，提取当前表的各个字段、数据类型、宽度等信息，然后根据自己的设定需要打开的字段，代码如下，但是报错误，该怎么修改？

Forms("报表打印").open
Dim tb As Table = CurrentTable
'msgbox(tb.name & "报表打印")

Dim dtb As New DataTableBuilder(tb.name & "报表打印")
dtb.AddDef("字段名", Gettype(String), 255)
dtb.AddDef("是否打印", Gettype(String), 32)
dtb.AddDef("宽度", Gettype(Double))
dtb.AddDef("顺序", Gettype(Integer))
dtb.Build()
For Each c As Col In tb.Cols
    Dim dr As DataRow = DataTables(tb.name & "报表打印").AddNew()
    dr("字段名") = c.Name
    dr("宽度") = c.PrintWidth
Next
Tables("报表打印_Table1").DataSource = Tables(tb.name & "报表打印")

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目16.foxdb

1、报表打印窗口要改成独立窗口；

 

2、修改代码

 

Forms("报表打印").open
Dim tb As Table = e.Form.controls("Table1").Table
'msgbox(tb.name & "报表打印")

Dim dtb As New DataTableBuilder(tb.name & "报表打印")
dtb.AddDef("字段名", Gettype(String), 255)
dtb.AddDef("是否打印", Gettype(String), 32)
dtb.AddDef("宽度", Gettype(Double))
dtb.AddDef("顺序", Gettype(Integer))
dtb.Build()
For Each c As Col In tb.Cols
    Dim dr As DataRow = DataTables(tb.name & "报表打印").AddNew()
    dr("字段名") = c.Name
    dr("宽度") = c.PrintWidth
Next
Forms("报表打印").controls("table1").Table.DataSource = DataTables(tb.name & "报表打印")

提示为找不到“Label1”的控件，是什么原因？该怎么修改？

.NET Framework 版本：2.0.50727.8689
Foxtable 版本：2017.10.26.1
错误所在事件：窗口,报表打印,打印报表,Click
详细错误信息：
未设置对象变量或 With 块变量。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目16.foxdb

在7楼的例子中我还希望选择是否打印时，能够按照选择的顺序自动填入相应的数字的该怎么修改代码？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目16.foxdb

例子中的宽度怎么没有办法使用