分两份
Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("二分类", GetType(String), 16)
dtb.AddDef("冷冻", GetType(Integer))
dtb.AddDef("日常", GetType(Integer))
dtb.AddDef("常温", GetType(Integer))dtb.AddDef("二分类1", GetType(String), 16,"","二分类")
dtb.AddDef("冷冻1", GetType(Integer),"","冷冻")
dtb.AddDef("日常1", GetType(Integer),"","日常")
dtb.AddDef("常温1", GetType(Integer),"","常温")
dtb.Build()
MainTable= Tables("统计")dim dr as datarow
Dim Products As List(Of String) = DataTable("表一").getvalues("二分类")
for i as integer = 0 to math.Floor(Products.count / 2) - 1
dr = DataTables("统计").addnew
dr("二分类") = s
for each dr2 as datarow in DataTable("表一").select("二分类='" & s & "'")
dr(dr2("一分类")) = dr2("三分类")
next
next
for i as integer = math.Floor(Products.count / 2) to Products.count - 1
dr = DataTables("统计").addnew
dr("二分类1") = s
for each dr2 as datarow in DataTable("表一").select("二分类='" & s & "'")
dr(dr2("一分类") & 1) = dr2("三分类")
next
next
加好友 
发短信
Post By：2021/9/16 20:31:00 [显示全部帖子]
