中断提醒问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 中断提醒问题

共有3348人关注过本帖树形打印复制链接主题：中断提醒问题

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/1/7 20:22:00 [显示全部帖子]

If dr("证件期限_停止提示1") = False Then
    cnt = cnt + 1
    ids = ids & ", " & dr("_Identify")
    nms = nms & "     " & cnt &"." & dr("中文简称") & vbcrlf
End If

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/1/7 20:36:00 [显示全部帖子]

加一列，到期天数 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

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/1/7 22:36:00 [显示全部帖子]

看5楼

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/1/7 22:40:00 [显示全部帖子]

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

下一主题 >> << 上一主题

主题：中断提醒问题