主题：编制报表

参考

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

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 & "报表打印")

你要先设置rt的宽度，才能设置各列的宽度的，默认是自动宽度的。