Dim t As Table = Tables("订单") t.Filter = "" Dim id As String For i As Integer = 0 To t.Rows.Count - 1 Dim s As String = t.Text(i,t.Cols("日期").Index) Dim j As Integer = s.LastIndexOf("-") If s.SubString(j + 1) = Date.Today.Day Then id + = t.Rows(i)("_Identify") & "," End If Next If id > "" Then t.Filter = "_Identify In (" & id.Trim(",") & ")" End If