主题：编制报表

什么地方的宽度没有办法使用？截图说明一下

 

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

我想把以下代码放在菜单中，但是黄色的代码怎么修改？

Forms("报表打印").open
Dim tb As Table = e.Form.controls("Table1").Table
Dim dtb As New DataTableBuilder(tb.name & "报表打印")
dtb.AddDef("字段名", Gettype(String), 255)
dtb.AddDef("数据类型", Gettype(String), 255)
dtb.AddDef("选择", Gettype(Boolean))
dtb.AddDef("宽度", Gettype(Double))
dtb.AddDef("顺序", Gettype(Date))
dtb.Build()
DataTables(tb.name & "报表打印").DataCols("顺序").SetDateTimeFormat(DateTimeFormatEnum.DateLongTime)
DataTables(tb.name & "报表打印").GlobalHandler.DataColChanged = True
For Each c As Col In tb.Cols
    Dim dr As DataRow = DataTables(tb.name & "报表打印").AddNew()
    dr("字段名") = c.Name
    If c.IsBoolean
        dr("数据类型") = "Boolean"
    ElseIf c.IsDate
        dr("数据类型") = "Date"
    ElseIf c.IsNumeric
        dr("数据类型") = "Numeric"
    ElseIf c.IsString
        dr("数据类型") = "String"
    End If
    dr("宽度") = c.PrintWidth
Next
Dim name As String = e.Form.controls("Table1").Table.DataTable.name
Forms("报表打印").controls("Label2").text = name
Forms("报表打印").controls("table1").Table.DataSource = DataTables(tb.name & "报表打印")

Dim tb As Table = currentTable