隐藏滚动条,只需在窗口的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