主题：[求助]提示

Dim ids As String
Dim cnt As Integer
Dim nms As String
For Each dr As DataRow In DataTables("应收款").Select("兑现日期 Is Not Null")
    Dim dt As Date = dr("兑现日期")
    dt =  New Date(dt.year,dt.Month,dt.Day)
    If Date.Today.AddMonths(1) > dt Then
        cnt = cnt + 1
        ids = ids & "," & dr("_Identify")
        nms = nms & dr("客户")& "-" & dr("piao据名称")& " , "
    End If
Next
If cnt > 0 Then
    messagebox.show("未来一个月内有" & cnt & "张piao据到期, 分别是 : " & nms.Trim(","),"piao据到期提示")
End If

MainTable = Tables("应收款")

老师，上面的代码对到期和过期的兑现日期都进行了提示，我只想对到期的兑现日期提示。谢谢