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

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

compute里就没有select的啊

没有group by我做不了，不分组，值就筛选不出来的啊

那个函数有这个功能，可以分组筛选的数据

Dim b As New GroupTableBuilder("标签表",DataTables("S1室藏案卷"))
b.Filter = "[全宗号] = '023' and [分类号] = '2.1'"
b.Groups.AddDef("存放地点","箱号")
b.Totals.AddDef("档号",AggregateEnum.Min,"起始档号")
b.Totals.AddDef("档号",AggregateEnum.Max,"终止档号")
b.VerticalTotal = False
b.Build
MainTable = Tables("标签表")

 

 

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

档号列是字符串的，不能更改类型的，怎么办？

我自己解决了：

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

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "select 存放地点 as 箱号, min(档号) as 起始档号 , max(档号) as 终止档号 from [S1室藏案卷] where [分类号] = '2.1' and [全宗号] = '023' group by 存放地点"
dt = cmd.ExecuteReader()
For Each dr As DataRow In dt.Datarows
   Dim dr1 As DataRow = DataTables("标签表").AddNew()
       dr1("箱号") = dr("箱号")
       dr1("起始档号") =dr("起始档号")
       dr1("终止档号") = dr("终止档号")
Next

 

 

 

 

谢谢！！