主题：如何让表格宽度固定不变，上下可拉，左右不可拉动

此主题相关图片如下：1.png

如何让表格宽度固定不变，上下可拉，左右不可拉动

在 afterload事件里面设置过了，但是，依然出现上图所示的问题，两列宽度的和刚好等于表格的宽，我是这么设置的，但是，发布后就是哪个样子，

此主题相关图片如下：111.png

你看上图中 ，水平分组列，我选几行都没问题，但是垂直分组列，就会出现如图所示的问题，

老师，激活码没有一点点问题，现在就是你看那个图，我如何让处置分组列也像水平分组列一样正正常常的

1、这个比较复杂， 参照交叉统计功能，实例已经是差不多完成的系统，测试例子真的不好做

我就是参照你们的交叉统计功能设计的，我刚 测试你们的交叉统计功能中，水平分组和垂直分组没有这个问题 ，是这样的，比如表中有三列，我填写三行后，我点一下第三列， 整体就往第三列移动，我已经设置不可手动改变列宽，它不是列宽改变的问题 ，列宽不变，是整体移动？

你看垂直分组列，那个是表格整体往左边移动了，我想是如何让这个不移动，

此主题相关图片如下：131.png

图1是我填写统计条件前，每列的宽度加起来没有超过table的 宽度

此主题相关图片如下：132.png

图2是我填写统计条件后，显然每列的宽度看着变了，测试表明，随着行数的增加 ，列宽在逐步增加

请老师指点一下？

统计表1的事件代码：

1、start edit

If e.Row.index = e.Table.rows.count-1 Then
    e.Table.DataTable.addnew
End If

2、datacolchanging

If e.DataCol.Name = "分组列"  Then
    Dim dr As DataRow
    dr = e.DataTable.Find("分组列 = '" & e.NewValue & "'")
    If dr IsNot Nothing Then
        MessageBox.Show("此字段已经存在!")
        e.Cancel = True
    End If
End If

3、datacolchanged

Dim dmp1 = Tables("统计1").cols("分组列").DataMap
If e.DataCol.name = "分组列" Then
    If e.DataRow.IsNull("分组列")=False Then
        e.DataRow("标题") =dmp1(e.NewValue)
        If  Tables("person").cols( e.NewValue ).IsDate
              e.DataRow("日期分组") ="年"
        End If
    End If
End If

4、before show context menu

e.ContextMenu = ContextMenus("快捷菜单1")

5 、afterload

''设置水平分组统计表和垂直分组统计表只有纵向进度条 ,没有横向统计条
Tables("统计1").grid.ScrollBars = 2 '0 无 1 横向 2 纵向 3 横向纵向
Tables("统计2").grid.ScrollBars = 2 '0 无 1 横向 2 纵向 3 横向纵向

''垂直分组列设定
Tables("统计2").DataTable.DataRows.Clear
Tables("统计2").AddNew
''统计条件为空
vars("filter")=""

我仔细看代码，并没有影响

此主题相关图片如下：134.png

您看我红色标记出来，两个表的第一列，您发现了没，我点模式列的时候，左边的分组列它移动了？不在一条竖线上

此主题相关图片如下：141.png

图1，我添加了5行，从高度上来说，还没有填充满表格区域，所有表格右边的依然有一部分空白部分

此主题相关图片如下：142.png

图2，我添加了6行，从高度上老说， 已经填充满表格区域，表格的右边就不存在空白了，表格宽度变宽了

问题，如何让，表格区域固定，但是，用户不管添加多少行，表格的宽度是固定的？