主题：两张表里面查数据

http://www.foxtable.com/webhelp/scr/2305.htm

 

还是这个？

 

http://www.foxtable.com/webhelp/scr/2320.htm

 

union 即可。如果写sql语句就是

 

select 姓名,性别 from {基础信息表} union all

select 姓名,性别 from {历史库}

参考代码

 

Dim jb1 As New SQLJoinTableBuilder("查询表1","表A")
jb1.AddCols("第一列", "第二列")

Dim jb2 As New SQLJoinTableBuilder("查询表2","表B")
jb2.AddCols("第一列", "第二列")

jb1.Union(jb2)

jb1.Build

看6楼代码吧，sql语句比较麻烦，看懂

 

Dim jb1 As New SQLJoinTableBuilder("查询表1","表A")
jb1.AddCols("第一列", "第二列")

jb1.filter = "第一列='123'"

Dim jb2 As New SQLJoinTableBuilder("查询表2","表B")
jb2.AddCols("第一列", "第二列")

jb1.filter = "第一列='abc'"

jb1.Union(jb2)

jb1.Build

 

如果你需要用户输入，参考下面代码

 

Dim cs1 As String = "第一列,第二列"
Dim cs2 As String = "第一列,第二列"
Dim f1 As String = "第一列='123'"
Dim f2 As String = "第一列='abc'"

Dim jb1 As New SQLJoinTableBuilder("查询表1","表A")
For Each s As String In cs1.split(",")
    jb1.AddExp(s, s)
Next
jb1.filter = f1

Dim jb2 As New SQLJoinTableBuilder("查询表2","表B")
For Each s As String In cs1.split(",")
    jb2.AddExp(s, s)
Next
jb1.filter = f2
jb1.Union(jb2)

jb1.Build

Dim Filter As String = ""
With e.Form.Controls("StartDate")
    If .Value IsNot Nothing Then
        Filter = Filter & "retireTime >= '" & .Value & "'"
    End If
End With
With e.Form.Controls("EndDate")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "retireTime<= '" & .Value & "'"
    End If
End With

 

Dim jb1 As New SQLJoinTableBuilder("查询表1","person")
jb1.AddCols("name", "sex")

jb1.Filter = Filter

Dim jb2 As New SQLJoinTableBuilder("查询表2","history")
jb2.AddCols("name", "sex")

jb2.Filter = Filter

jb1.Union(jb2)
jb1.Build

 

报审没错？贴出错误，或者截图说明