请高手帮忙？有酬

sun.gd

我要做一个报表，其中有竖线，希望竖线按每票对应入仓单数量确定竖线的高度。
详见附件 sun.gd@163.com  QQ:119539821

huanghai

我来试试,但是不一定能赚到你的钱

huanghai

Private Sub 主体_Format(Cancel As Integer, FormatCount As Integer)
Me.主体.Height = Text20 * 567 / 50
Dim ctl As Control
For Each ctl In Me.Controls
    If TypeOf ctl Is TextBox Then
        ctl.Height = Text20 * 567 / 50
    End If
   
Next ctl
End Sub

huanghai

Private Sub 主体_Format(Cancel As Integer, FormatCount As Integer)
Me.主体.Height = Text20 * 567 / 50
Dim ctl As Control
For Each ctl In Me.Controls
    If TypeOf ctl Is TextBox Then
        ctl.Height = Text20 * 567 / 50
    End If
   
Next ctl
End Sub

sun.gd

希望你能帮上

sun.gd

我不明白TEXT20是什么?我只要竖线(LI1 --LI9)自动改变高度,横线(LI13)自动调整位置

sun.gd

救命！

sun.gd

各位高手，请帮帮忙，我已经头痛啦！

sossos

按照huanghai的方法是可以实现的

sun.gd

我试过不行，那位能在文件上实现后EMAIL给我