主题：切换用户时有必填字段为空如何中止切换？（已解决）

Dim s() As String ={"分类","任务"}

For Each dr As DataRow In DataTables("表A").DataRows

    For i As Integer = 0 To s.Length-1

        If dr.IsNull(s(i)) Then

            MessageBox.Show(s(i) & "不能为空")

            Dim wz As Integer = Tables("表A").FindRow(dr)

            If wz >= 0 Then

                Tables("表A").Position = wz

            End If

            Return

        Else

            Forms("用户登录").Open

        End If

    Next

Next