调整字体的时候，也会默认的调整行高的，你要单独设置每一行的行高，就没问题了
Dim grid = Tables("窗口1_table1").gridFor i As Integer = 1 To grid.Rows.count-1 grid.Rows(i).height = 50NextTables("窗口1_table1").Font = New Font("宋体",9.5)
加好友 
发短信
Post By：2016/11/27 10:07:00 [显示全部帖子]
