以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  AutoSizeRows() 怎么样的条件下才有效  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=159389)
--  作者：mxl810823
--  发布时间：2020/12/24 15:11:00
--  AutoSizeRows() 怎么样的条件下才有效
如下代码，生成一个表，然后填入数据，自动行高没有效果的，为什么？？
If e.Form.Controls("TabControl1").SelectedIndex = 1 Then
    Dim dtb As New DataTableBuilder("会议")
    dtb.AddDef("ID号", Gettype(String), 9)
    dtb.AddDef("会议ID", Gettype(String), 9)
    dtb.AddDef("部门", Gettype(String), 16)
    dtb.AddDef("提议人", Gettype(String), 4)
    dtb.AddDef("会议议题", Gettype(String), 250)
    dtb.AddDef("会议决议", Gettype(String), 250)
    dtb.AddDef("责任人", Gettype(String), 16)
    dtb.AddDef("计划完成时间", Gettype(Date))
    dtb.AddDef("责任承领", Gettype(String), 16)
    dtb.AddDef("实际完成时间", Gettype(Date))
    dtb.AddDef("关闭", Gettype(String), 2)
    dtb.AddDef("备注", Gettype(String), 250)
    Tables("会议记录_table3").DataSource = dtb.BuildDataSource()
    Dim fnt As New Font(Tables("会议记录_table3").Font.Name, 11.5, Tables("会议记录_table3").Font.Style)
    Tables("会议记录_table3").Font = fnt
    Tables("会议记录_table3").AllowEdit = True
    Tables("会议记录_table3").Cols("部门").Width = 85
    Tables("会议记录_table3").Cols("提议人").Width = 65
    Tables("会议记录_table3").Cols("责任人").Width = 75
    Tables("会议记录_table3").Cols("责任承领").Width = 75
    Tables("会议记录_table3").Cols("关闭").Width = 50
    Tables("会议记录_table3").Cols("ID号").Width = 50
    Tables("会议记录_table3").Cols("会议决议").Width = 300
    Tables("会议记录_table3").Cols("会议议题").Width = 300
    Tables("会议记录_table3").Cols("备注").Width = 150
    Tables("会议记录_table3").Cols("会议ID").visible = False
    Dim rr As Row = Tables("会议记录总表").current
    If rr IsNot Nothing Then
        Dim fr As DataRow = DataTables("会议记录总表").sqlfind("会议ID = \'" & rr("会议ID") & "\'")
        If fr IsNot Nothing Then
            Dim nns() As String = {"厂部","会议日期","时间一","时间二","会议地点","主持人","记录员","会议主题","参会人员","保密","会议类别"}
            For Each nn As String In nns
                Dim fs As String = "r" & nn
                e.form.controls(fs).text = fr(nn)
            Next
            e.form.controls("" & fr("状态") & "").checked = True
            Dim drs As List(of DataRow) = DataTables("会议记录分表").sqlselect("会议ID = \'" & rr("会议ID") & "\'")
            If drs.count > 0 Then
                Tables("会议记录_table3").StopRedraw
                Dim ms() As String = {"会议ID","部门","提议人","会议议题","会议决议","责任人","计划完成时间","实际完成时间","关闭","备注"}
                For Each dr As DataRow In drs
                    Dim r As Row = Tables("会议记录_table3").Addnew
                    For Each m As String In ms
                        r(m) = dr(m)
                    Next
                    r("ID号") = dr("_identify")
                    r.locked = True
                Next
                Tables("会议记录_table3").save()
                Tables("会议记录_table3").sort = "部门"
                Tables("会议记录_table3").AutoSizeRows()
                Tables("会议记录_table3").ResumeRedraw
            End If
        Else
            MessageBox.Show("当前会议记录已在后台中删除")
        End If
    Else
        MessageBox.Show("当前没有加载任何会议记录,请转到查找页面加载")
    End If
End If
--  作者：有点蓝
--  发布时间：2020/12/24 15:16:00
--  
我测试没有问题，请上传实例说明