想到一个办法,既然是合并导致了无法调整行高.那么对于不用合并的行就不要去设置合并属性了.那么这个行就可以调整行高了.其他需要合并的,合并后反正也比较高,所以也不会存在"原面料"不够放的问题.于是: 在合并前加一个判断,如红色部分
Dim jian As New List(of Integer)
jian.AddRange(zd.Keys)
For x As Integer = 0 To jian.Count-1
if zd(jian(x)) > 1 then
rtb.cells(jian(x)+2,0).Spanrows = zd(jian(x))
rtb.cells(jian(x)+2,1).Spanrows = zd(jian(x))
rtb.cells(jian(x)+2,2).Spanrows = zd(jian(x))
rtb.Cells(jian(x)+2,0).VertSplitBehavior = prt.CellSplitBehaviorEnum.Copy
rtb.Cells(jian(x)+2,1).VertSplitBehavior = prt.CellSplitBehaviorEnum.Copy
rtb.Cells(jian(x)+2,2).VertSplitBehavior = prt.CellSplitBehaviorEnum.Copy
end if
Next
虽然没有从根本解决问题,但对我来说够用了.在此谢谢甜老师.如果不是你给我指出导致问题的代码也是无法解决问题.