主题：[求助]查询表的条件

试试:

Dim tb1 As Table = Tables("窗口1_Table1")

Dim d1 As Date = Date.Today

Dim sql As String

sql ="Select  a.*,b.有效期  From {表1} a  INNER JOIN (Select  编号,Max(iif(有效期 > #"

sql+=d1 & "#, 有效期, Null)) As 有效期  From {表2} Group By 编号) b on a.编号 = b.编号"

tb1.Fill(sql,"",True)