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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]多表查询

共有5539人关注过本帖树形打印复制链接主题：[求助]多表查询

有点甜

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

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

Post By：2013/8/4 20:37:00 [显示全部帖子]

例子，主要是拼凑sql查询语句。

'要查询的表

Dim tbs() As String = {"表A", "表B", "表C"}

Dim d As Date = e.Form.Controls("DateTimePicker1").Value

Dim t As Table = e.Form.Controls("Table1").Table

Dim sqlstr As String = ""

For i As Integer = 0 To tbs.Length - 1

sqlstr += "select 回访日期, 第二列 from {" & tbs(i) & "} where 回访日期 = #" & d & "#"

If i < tbs.length - 1 Then

sqlstr += " union all "

End If

t.Fill(sqlstr, True)

下载信息 [文件大小：下载次数： ]
点击浏览该文件:查询回访日期.table

有点甜

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

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

Post By：2013/8/6 23:12:00 [显示全部帖子]

以下是引用狐狸爸爸在2013-8-6 12:37:00的发言：

sql数据源的日期用单引号括起来，而不是#，要改为：

sqlstr += "select 回访日期, 人员 , 情况 from {" & tbs(i) & "} where 回访日期 = '" & d & "'"

参考：

还有就是，用fill函数的时候要指定数据源名字。

主题：[求助]多表查询