以下是引用狐狸爸爸在2012-10-11 8:09: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
原来Tables 继承自Grid ?这就好办。
看来有时间你们要发布个控件的‘族谱’呵呵!
另,也说明foxtable有前途,忙完这段,我给你们提几个意见,foxtable就会更有钱途![dvubb 图片点击可在新窗口打开查看](images/emot/em50.gif)
呵呵,开玩笑的!
但,确实有颇多不成熟的建议:例如,Field:只读;及检查授权的隐藏、显示、编辑都放在‘表结构’以复选框进行...
我们的采购申请通过再说吧
[此贴子已经被作者于2012-10-11 12:08:39编辑过]