主题：窗口求合计

目录树的NodeMouseClick事件代码改为：

Dim ty As String = e.Form.Controls("TreeView3").SelectedNode.Text
Dim T,T1 As String
Dim da As DataTable = DataTables("表b")
Dim dst2 As WinForm.DataList = e.Form.Controls("DataList1")
T = Da.GetComboListString("加工单位")
dst2.DataTable = Da
dst2.Filter = "[加工单位] = '" & ty & "'"
dst2.ClearTotal()
dst2.Build()
dst2.GrandTotal(AggregateEnum.Sum,"合计","数量","单价","金额")

通过DataList的下述属性，可以调整包括那些列，列顺序，列宽：