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