那要得到什么数据才是正确的啊。
Dim t As Table = Tables("查询表")
Dim d As Date = t.DataTable.Compute("max(日期)")
Dim filter As String = "日期 >= #" & d.AddMonths(-2) & "# and 日期 < #" & d.AddDays(1) & "#"
t.filter = "姓名 not in ('" & t.DataTable.GetComboListString("姓名", filter).replace("|", "','") & "','" & t.DataTable.GetComboListString("介绍人", filter).Replace("|", "','") & "')"