主题：求教

     怎样在窗口中调整控件的高度？

      我做了个进销存的组合统计，统计进库表和出库表的累计及余额，怎样在不加载进库表和出库表的情况下实现。

Dim bd1 As New GroupTableBuilder("统计表1",DataTables("入库明细"))

Dim dt1 As fxDataSource

bd1.Groups.AddDef("存货编码") '根据型号分组

bd1.Totals.AddDef("入库数量","入库数量") '对数量进行统计

bd1.Totals.AddDef("入库金额","入库金额") '对金额进行统计

dt1 = bd1.BuildDataSource()

Dim bd2 As New GroupTableBuilder("统计表2",DataTables("出库明细"))

Dim dt2  As fxDataSource

bd2.Groups.AddDef("存货编码") '根据型号分组

bd2.Totals.AddDef("出库数量","出库数量") '对数量进行统计

bd2.Totals.AddDef("出库金额","出库金额") '对金额进行统计

dt2 = bd2.BuildDataSource()

dt1.Combine("存货编码",dt2,"存货编码") '将销售统计数据组合到进货统计数据

Tables("窗口4_Table1").DataSource = dt1 '将统计结果绑定到Table

With DataTables("窗口4_Table1").DataCols  '用表达式列计算库存数据

    .Add("库存数量",Gettype(Integer), "IsNull([入库数量],0) - ISNULL([出库数量],0)")

    .Add("库存金额",Gettype(Double), "IsNull([入库金额],0) - ISNULL([出库金额],0)")

End With