|
Dim filter As String
filter = iif(Tables(e.Form.name & "_table1").Filter>"", Tables(e.Form.name & "_table1").Filter,"1=1")
Dim sql As String = "select * from {表A} where " & filter
filter = iif(Tables(e.Form.name & "_table2").Filter>"", Tables(e.Form.name & "_table2").Filter,"1=1")
sql = "select a.第二列, b.第二列 from (" & sql & ") a inner join (select * from {表B} where " & filter & ") b on a.第一列 = b.第一列"
msgbox(sql)
Tables(e.Form.name & "_table3").Fill(sql, True)
|
加好友 
发短信
Post By：2014/12/16 21:22:00 [显示全部帖子]
