主题：[求助] 查询表的筛选

'用SQL语句生成临时表
Dim cmd As New SQLCommand

cmd.C
cmd.CommandText = "Select Distinct  DocumentType,Delivereddate,DocumentNo Fr om {Outgoing_Transmittal} Where DocumentType='QUALITY PROCEDURE' AND Delivereddate >= '11/5/2016' AND Delivereddate <= '11/12/2016'"
Dim dt As DataTable = cmd.ExecuteReader()

Dim cmd2 As New SQLCommand

cmd2.C
cmd2.CommandText = "Select  DocumentType,Delivereddate,DocumentNo Fr om {Outgoing_Transmittal} Where DocumentType='QUALITY PROCEDURE' AND Delivereddate < '11/5/2016'"
Dim dt2 As DataTable = cmd.ExecuteReader()

‘关联筛选显示结果
Tables("dt").RelationFilter("DocumentNo", dt2, "DocumentNo", True)