主题：建议给DataList进一步增强功能..

  我觉得你提的这个问题当时我也想提出的,后来狐爸改成用数据列表,主表窗口我觉得用处不多,还有像易表一样自动生成窗口,我也觉得非常有用.可以省了做输入窗口的不少时间.

'''
Dim Da  As DataTable = DataTables("物品出库")
Dim cp,T,T1 As String
Dim Ls As String() = {"物品名称","类别","领用人"}
cp= e.Form.Controls("ComboBox1").Value
Dim cps As List(Of String) = Da.GetUniqueValues("","" & Vars("ColName") & "") 
If cps.Contains(cp) = False OrElse cps.Contains(cp) = False Then
      MessageBox.Show("请检查条件和查询项目!","提示",messageboxbuttons.ok,messageboxicon.information)
Else
      Dim dtb As New DataTableBuilder("查询")
            dtb.AddDef("日期", GetType(Date))
      dtb.AddDef("物品名称",GetType(String),32)
      dtb.AddDef("类别",GetType(String),32)
      dtb.AddDef("领用人",GetType(String),32)
      dtb.AddDef("数量", GetType(Integer))
      dtb.AddDef("单价", GetType(Single))
      dtb.AddDef("金额", GetType(Single))
      dtb.Build()        
      Tables("查询").Visible = False

       For Each T  In  Ls
           If e.Form.Controls(T).Checked = True
               T1 = T &  " = '" &  cp & "'"
           End if
        Next
       dim f As New Filler
       f.SourceTable = Da
       f.DataTable = DataTables("查询")
       f.Filter = T1
       f.Distinct = False
       f.Fill()

       dim r  As Row = Tables("查询").addnew
       r("物品名称") = "合计"
       r("数量") = Tables("查询").Compute("Sum(数量)")
       r("金额") = Tables("查询").Compute("Sum(金额)")

       Dim dst As WinForm.DataList = e.Form.Controls("DataList1")
       dst.DataTable = DataTables("查询")
       dst.Build()                                       
End If

这是论坛中有一个老大做的窗口按钮代码,他可以做到在DataList中动态汇总,所以想问哪位老大可以将此代码简化成通用的可以在datalist中汇总的代码?

  上面的代码必须选择后才有用,我想用一个文本框,输入要查询的数据后,点击按钮就可以汇总.

上面的代码可以改一下可以做统计.