Dim ary() As String = Functions.Execute("Xueqi")
dr = DataTables("学生基本信息").SQLFind("身份证号 = \'"& e.Form.controls("身份证号").Text & "\'")
cmd.C
If dr IsNot Nothing Then
    SQL = "Sel ect n.身份证号,退费状态 From ({缴学费} a LEFT JOIN (Se lect 身份证号,退费状态 From {学生退费} Where 学期 = \'"& ary(1) &"\' And 退费项目 = \'学费\' And (退费状态 Is Null Or 退费状态 = \'已退\')) b ON a.身份证号 = b.身份证号) LEFT JOIN(Sel ect f.身份证号 From {缴学费} f Inner JOIN (Se lect d.身份证号,Max(缴费日期) As 最后日期 From {缴学费} d Inner JOIN {学生违纪} r ON d.学期 = r.学期 And d.身份证号 = r.身份证号 Group By d.身份证号) h ON f.身份证号 = h.身份证号 Where 学期 > \'"& ary(1) &"\' And 缴费日期 >= 最后日期 Group By f.身份证号 having  Count(*) =1) n ON a.身份证号 = n.身份证号 Where 学期 = \'"& ary(1) &"\' And a.身份证号 = \'"& e.Form.controls("身份证号").Text &"\'"
    cmd.CommandText = SQL
    Dim Values = cmd.ExecuteValues
    If Values.Count > 0 Then
        If Values("退费状态") = "已退" Then
            e.Form.controls("Label1").Text = Values("退费状态")
            MessageBox.Show(dr("学生姓名") & Values("退费状态") & "学,请领导审批!","提示", MessageBoxButtons.OK,MessageBoxIcon.Question)
        Else  If Values("退费状态") 为空值 Then
            MessageBox.Show(dr("学生姓名") & "已缴学费","提示", MessageBoxButtons.OK,MessageBoxIcon.Question)
        Else  If Values("身份证号") 不为空值Then
            MessageBox.Show(dr("学生姓名") & "是违纪学生","提示", MessageBoxButtons.OK,MessageBoxIcon.Question)
        End If
    End If
End If

请老师指教，谢谢

比如

Else  If Values("退费状态").tostring = Nothing Then