\'用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)