Dim ary() As String = Functions.Execute("Xueqi")Sele ct 学生编号 From {缴退费信息} WHERE 学期 = '"& ary(0) &"' And 缴费项目 = '学费' And 退费日期 >= #"& IIF("& ary(0) &" Like "%秋%",New Date(退费日期.Year,10,1),IIF("& ary(0) &" Like "%春%",New Date(退费日期.Year,5,1)) &"#
请老师指教,谢谢!