If e.DataCol.Name = "第一列" Then
Tables(e.DataTable.name).AutoSizeRow(Tables(e.DataTable.name).findrow(e.DataRow))
End If
在表A的click事件中输入代码:
Tables("表A").Cols("第一列").Width= 100
Tables("表A").Cols("第二列").Width= 50
Tables("表A").AutoSizeRows()
Dim ss As String
ss="中华人民共和国北京市朝阳区"
e.Row("第一列")=ss
e.Row("第二列")=ss & "CBD核心区"
我希望自动换行后自动调整行高。