老师下面代码，能循环吗？
Dim y As Integer = Date.Today.Year
Dim d As Date = New Date(y,08,01)
Dim d1 As Date = Date.Today
If d1 >= d Then
dr = DataTables("法定假期").SQLFind("名称 = '中秋' And 日期 > #"& d &"#")
If dr Is Nothing Then
MessageBox.Show("没有输入【中秋假期】,请检查")
Forms("窗口1").Open()
End If
dr = DataTables("法定假期").SQLFind("名称 = '国庆' And 日期 > #"& d &"#")
If dr Is Nothing Then
MessageBox.Show("没有输入【国庆假期】,请检查")
Forms("窗口1").Open()
End If
dr = DataTables("法定假期").SQLFind("名称 = '元旦' And 日期 > #"& d &"#")
If dr Is Nothing Then
MessageBox.Show("没有输入【元旦假期】,请检查")
Forms("窗口1").Open()
End If
End If
[此贴子已经被作者于2019/10/16 14:26:31编辑过]
加好友 
发短信
Post By：2019/10/16 14:24:00 [显示全部帖子]
