主题：[求助]将筛选的数据填入到临时表

Dim dtb As New DataTableBuilder("标签表")
dtb.AddDef("箱号", Gettype(String), 50)
dtb.AddDef("起始档号", Gettype(String), 50)
dtb.AddDef("终止档号", Gettype(String), 50)
dtb.Build()

Dim dr As DataRow = DataTables("标签表").AddNew()
For Each c As Col In Tables("S1室藏案卷").Cols  
    dr("箱号") = DataTables("S1室藏案卷").Compute("存放地点","[全宗号] = '023' and [分类号] = '2.1' group by 存放地点")
    dr("起始档号") = DataTables("S1室藏案卷").Compute("min(档号)","[全宗号] = '023' and [分类号] = '2.1' group by 存放地点")
    dr("终止档号") = DataTables("S1室藏案卷").Compute("max(档号)","[全宗号] = '023' and [分类号] = '2.1' group by 存放地点")
Next

 

 

哪里不对？group by 存放地点不可以？？

测试数据

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:测试.rar

测试数据再加两列全宗号和分类号，数据分别重复填充成023和2.1