如下代码，生成一个表，然后填入数据，自动行高没有效果的，为什么？？
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
加好友 
发短信
Post By：2020/12/24 15:11:00 [只看该作者]
