Foxtable(狐表)用户栏目专家坐堂 → [求助]将筛选的数据填入到临时表


  共有5210人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
don
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1812 积分:12993 威望:0 精华:14 注册:2008/10/11 18:07:00
  发帖心情 Post By:2013/5/29 11:58:00 [只看该作者]

昏,印象中GroupTableBuilder以前可以對字符統計出Min及Max的,什麼時候禁止了?

Dim b As New SQLGroupTableBuilder("标签表","表A")
b.Groups.AddDef("存放地点","箱号")
b.Totals.AddDef("档号",AggregateEnum.Min,"起始档号")
b.Totals.AddDef("档号",AggregateEnum.Max,"终止档号")
b.Build
MainTable = Tables("标签表")
[此贴子已经被作者于2013-5-29 12:03:07编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
云淡风轻
  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:409 积分:3022 威望:0 精华:0 注册:2012/1/19 10:11:00
  发帖心情 Post By:2013/5/29 13:50:00 [只看该作者]

我自己解决了:

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

 

 

 

 

谢谢!!


 回到顶部
总数 12 上一页 1 2