主题：[求助]Dim ids As String

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