主题：到期提示

请问以下代码可否做到提示30天内所有到期的车牌号码?

Dim ids As String 

Dim cnt As Integer 

Dim nms As String 

For Each dr As DataRow In DataTables("车牌资料").DataRows 

   Dim dt As Date = dr("到期日") 

    If Date.Today.AddDays(30) = dt Then 

        cnt = cnt + 1 

        ids = ids & "," & dr("_Identify") 

        nms = nms & "," & dr("车牌号码") 

    End If 

Next 

If cnt > 0 Then 

     messagebox.show("有" & cnt & "车牌30日後到期,分別是: " & nms.Trim(",")) 

     Tables("车牌资料").filter = "[_Identify] In (" & ids.Trim(",") &")" 

End If