根据时间来判断当月是否有过政治生日的党员，怎么优化提示信息内容！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim t4 As WinForm.TextBox =Forms("政治生日").Controls("TextBox1")

Dim d4 = t4.BaseControl

Dim lsts As New List(Of String())

lsts= DataTables("党员信息").S QLGetValues("支部名称|姓名|身份证号")

Dim str As String = ""

For Each lst As String() In lsts

Dim lsts1 As New List(Of String)

lsts1= DataTables("党员流程").S QLGetValues("时间","身份证号='" & lst(2) & "' and 登记类别='预备党员' and Month(时间) =" & Date.Today.Month)

For Each lst1 As String In lsts1

output.Show("本月过政治生日有{" & lst(1) & "},其入党时间为【" & Format(d, "yyyy-MM-dd") & "】,所在支部" & lst(0) & "")

str = str & vbcrlf & "本月过政治生日有{" & lst(1) & "},其入党时间为【" & Format(d, "yyyy-MM-dd") & "】,所在支部" & lst(0) & ""

If str > "" Then

t4.Text= t4.Text & str

Else

output.Show("本月无人员过政治生日!")

t4.Text= t4.Text & vbcrlf & "本月没有党员过政治生日!"

End If

t4.SelectionStart = t4.Text.Length

d4.ScrollToCaret

Application.DoEvents

主题：根据时间来判断当月是否有过政治生日的党员，怎么优化提示信息内容！