Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("二分类", GetType(String), 16)
dtb.AddDef("冷冻", GetType(Integer))
dtb.AddDef("日常", GetType(Integer))
dtb.AddDef("常温", GetType(Integer))
dtb.Build()
MainTable= Tables("统计")dim dr as datarow
for each s as string in DataTable("表一").getvalues("二分类")
dr = DataTables("统计").addnew
dr("二分类") = s
for each dr2 as datarow in DataTable("表一").select("二分类='" & s & "'")
dr(dr2("一分类")) = dr2("三分类")
next
next