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

错了，我用foxtable做的客户管理系统，没有编码，但是不仅可以很多人同时使用，而且支持广域网，只要愿意，上海北京的同事，可以同时使用。
越是新手，越应该从基础做起。
但是事实上往往相反，专业用户设计的系统简单实用，也不会觉得功能不够，而是新学的人往往会设计出复杂的系统，复杂到自己无法控制，而且经常觉得开发工具的功能不够。

有不少办法可以轻松解决你说的问题，磨刀不误砍柴工，多多实践和练习。

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

老爹,其实不一定要求很多,至少让DataList显示汇总模式这个小功能吧?

呵呵，正在考虑

呵呵，不如将Visual Studio 整个开发环境移植过来算了。

有时候DataList要求很特殊的格式,比如下图....现有的狐表就无法实现了...


此主题相关图片如下：001.jpg

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中汇总的代码?