'当订单明细表行数超出范围时,修改表格的行高,最多12行
Dim h As Integer
Dim h1 As Integer
Select Case dt.DataRows.Count
Case 0 To 4
h = 7
h1 = 40
Case 5 To 6
h = 7
h1 = 40
For i As Integer =2 To dt.DataRows.Count
rx1.Rows(i).Height =h
Next
Case 7 To 8
h = 6.5
h1 = 35
'指定行高,以免文字长度超出表格宽度时自动换行
For i As Integer =2 To dt.DataRows.Count
rx1.Rows(i).Height =h
Next
Case 9 To 10
h = 6
h1 = 30
For i As Integer =2 To dt.DataRows.Count
rx1.Rows(i).Height =h
Next
Case 11 To 12
h = 5.5
h1 = 20
For i As Integer =2 To dt.DataRows.Count
rx1.Rows(i).Height =h
Next
Case >13 '当行数超出12行时换页
h = 7
h1 = 40
End Select
For i As Integer =2 To 5
rt.Rows(i).Height =h
Next
rt.Rows(6).Height =h1
For i As Integer =7 To 15
rt.Rows(i).Height =h
Next
已解决,虽然没有用大佬们提供的方案,但还是非常感谢
加好友 
发短信
Post By：2017/12/8 9:42:00 [只看该作者]
