主题：中断提醒问题

求助: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

 

If dr("证件期限_停止提示1") = False Then
    cnt = cnt + 1
    ids = ids & ",  " & dr("_Identify")
    nms =  nms & "     " & cnt &"." & dr("中文简称") & vbcrlf
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

 看5楼

试过了,不行

按5楼的,试过了,不行

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 dr("证件期限_停止提示1") = False Then
            cnt = cnt + 1
           
            Dim sp As TimeSpan = dt - Date.Today
           
            nms =  nms & "     " & cnt &"." & dr("中文简称") & "   " & sp.TotalDays & vbcrlf
        End If
    End If
   
Next
If cnt > 0 Then
    messagebox.show("有" & cnt & "个客户营业执照即将到期,分别是:  "& vbcrlf  & nms,"提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

可以了,能及时帮助,我买这开发平台很值得!