select - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → select

共有3232人关注过本帖树形打印复制链接主题：select

bagabaga

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：138 积分：1325 威望：0 精华：0 注册：2014/3/10 19:43:00

select 发帖心情

Post By：2014/8/10 21:47:00 [只看该作者]

请教，有二个表，{QdxrcjhlMx}含有Rcjid,Rcjhl,Rcjhj,fK列，RcjhzMx含有RcjBm,Mc列

1.先选取当前Tables("Qdmx").Current("Xh")对应的{QdxrcjhlMx} 生成临时表

2.根据临时表和RcjhzMx生成统计表

结果出错，请指教

Dim cmd As New SQLCommand

Dim dt1 As DataTable

cmd.CommandText = "SELECT Rcjid,Rcjhl,Rcjhj,fK From {QdxrcjhlMx} where Fk = '" & Tables("Qdmx").Current("Xh") & "'"

dt1 = cmd.ExecuteReader()

Dim sql As String = "Select RcjBm,Mc,Rcjhl,Rcjhj FROM {dt1} INNER JOIN {RcjhzMx} ON {dt1}.RcjId = {RcjhzMx}.RcjId"

Dim b As New GroupTableBuilder("统计表1",sql)

b.Groups.AddDef("RcjBm")

b.Groups.AddDef("Mc")

b.Groups.AddDef("Rcjhl")

b.Totals.AddDef("rcjhj")

'b.HorizontalTotal = True

b.VerticalTotal = True

b.Build()

MainTable = Tables("统计表1")

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/8/10 21:51:00 [只看该作者]

不能分开写

Dim sql As String = "Select RcjBm,Mc,Rcjhl,Rcjhj FROM (SELECT Rcjid,Rcjhl,Rcjhj,fK From {QdxrcjhlMx} where Fk = '" & Tables("Qdmx").Current("Xh") & "') as a INNER JOIN {RcjhzMx} as b ON a.RcjId = b.RcjId"
Dim b As New GroupTableBuilder("统计表1",sql)
b.Groups.AddDef("RcjBm")
b.Groups.AddDef("Mc")
b.Groups.AddDef("Rcjhl")
b.Totals.AddDef("rcjhj")
'b.HorizontalTotal = True
b.VerticalTotal = True
b.Build()
MainTable = Tables("统计表1")

下一主题 >> << 上一主题

主题：select