请教！诸位前辈请进来看看！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以下是引用czy在2012-10-10 19:25:00的发言：

再看看。

真是太感谢，已解决同步调整列宽^_^滚动条应该要隐藏上表的，用合计表的滚动条才正确(如下图)。但我在帮助文档找不到此操作，求解...

图片点击可在新窗口打开查看

[此贴子已经被作者于2012-10-10 20:01:44编辑过]

官方公开的没有这样的属性，我没办法隐藏滚动条。

以下是引用czy在2012-10-10 19:55:00的发言：
官方公开的没有这样的属性，我没办法隐藏滚动条。

不管怎么样，辛苦你了！谢谢！

隐藏滚动条，只需在窗口的AfterLoad事件的最后面加上一行代码：

DataTables("窗口1_Table2").Fill("Select * From {表A} Where [_Identify] Is Null","", True)
Tables("窗口1_Table2").SetHeaderRowHeight(0)
DataTables("窗口1_Table2").DataRows.Clear
Dim s As String
Dim t As Table = Tables("表A")
For i As Integer = 0 To t.Cols.Count -1
    If t.Cols(t.Cols(i).Name).Visible
        s = s & t.Cols(i).Name & "|" & t.Cols(i).Width & "|"
    End If
Next
Tables("窗口1_Table2").SetColVisibleWidth(s)
DataTables("窗口1_Table2").SysStyles("EmptyArea").BackColor = Color.White
DataTables("窗口1_Table2").SysStyles("Normal").FontBold = True
Dim r As Row = Tables("窗口1_Table2").AddNew
r("第一列") = " 合计"
r("数量") = DataTables("表A").Compute("sum(数量)")
r("金额") = DataTables("表A").Compute("sum(金额)")
Tables("窗口1_Table2").Grid.ScrollBars = Windows.Forms.ScrollBars.None

以下是引用狐狸爸爸在2012-10-11 8:09:00的发言：

隐藏滚动条，只需在窗口的AfterLoad事件的最后面加上一行代码：

原来Tables 继承自Grid ？这就好办。

看来有时间你们要发布个控件的‘族谱’呵呵！

另，也说明foxtable有前途，忙完这段，我给你们提几个意见，foxtable就会更有钱途图片点击可在新窗口打开查看

呵呵，开玩笑的！

但，确实有颇多不成熟的建议：例如，Field：只读；及检查授权的隐藏、显示、编辑都放在‘表结构’以复选框进行...

我们的采购申请通过再说吧

[此贴子已经被作者于2012-10-11 12:08:39编辑过]

主题：请教！诸位前辈请进来看看！