如何设置DataGrid中全部的行高？

是不是只能一行行的设置啊？要是记录多的话，速度就太慢了！！！
---------------------------------------------------------------

try
'优先tablestyles中的PreferredRowHeight
'接着才是Me.DataGrid1.PreferredRowHeight
Me.DataGrid1.TableStyles.Item(0).PreferredRowHeight = 50
Dim t As DataGridTableStyle = Me.DataGrid1.TableStyles.Item(0)
Me.DataGrid1.TableStyles.Clear()
Me.DataGrid1.TableStyles.Add(t)