求助:30天内提醒,但要求"停止提示1"列如果已钩选则不参与提提醒,红色代码部分要停止提醒,但不起作用,如何改代码呢,帮帮忙,谢谢!

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("证件期限_营业执照")
    dt =  New Date(Date.Today.Year,dt.Month,dt.Day)
    If Date.Today.AddDays(0) <= dt And dt <= Date.Today.AddDays(30) Then
        If Tables("企业资料").Filter = "证件期限_停止提示1 = false " Then
            cnt = cnt + 1
            ids = ids & ",  " & dr("_Identify")
            nms =  nms & "     " & cnt &"." & dr("中文简称") & vbcrlf
        End If
    End If
   
Next
If cnt > 0 Then
    messagebox.show("有" & cnt & "个客户营业执照即将到期,分别是:  "& vbcrlf  & nms.Trim(","),"提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

ok,谢谢!

我想在别在每个到期客户后再提示还有几天到期,这个真的不会写了,求助版主,谢谢!

 加一列，到期天数 http://www.foxtable.com/help/topics/2471.htm

If dr("证件期限_停止提示1") = False Then
    cnt = cnt + 1
    ids = ids & ",  " & dr("_Identify")
    nms =  nms & "     " & cnt &"." & dr("中文简称") & vbcrlf
    Dim sp As TimeSpan = dt - Date.Today
    e.DataRow("到期天数") = sp.TotalDays
End If

试过了,不行