Foxtable(狐表)用户栏目专家坐堂 → [求助]Dim ids As String


  共有2419人关注过本帖树形打印复制链接

主题:[求助]Dim ids As String

帅哥哟,离线,有人找我吗?
大红袍
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/12/6 16:42:00 [显示全部帖子]

Dim ids12 As String
Dim cnt12 As Integer
Dim nms12 As String
For Each dr12 As DataRow In DataTables("企业资料").DataRows
    Dim dt12 As Date = dr12("证件期限_营业执照")
    If dr12.IsNull("证件期限_营业执照") Then
       
    Else

        If Date.Today > dt12  Then
            Cnt12 = cnt12 + 1
            Dim sp12 As TimeSpan = Date.Today - dt12
            Nms12 =  nms12 & "     " & cnt12 &"." & dr12("中文简称") & ":  营业执照已过期" & sp12.TotalDays & "天" & vbcrlf
        End If
    End If
Next

If cnt12 > 0  Then
    messagebox.show("有" & cnt12 & "个营业执照已过期,分别是:  "& vbcrlf  & nms12,"提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

 


 回到顶部