主题：[求助]已注册用户未被批准不准登陆，怎么改代码？

你用系统的登陆窗口，还是自己做的登陆窗口？

如果是系统自带的，你无法控制登陆，不过你可以在LoadUserSetting事件，查询用户的表记录，从而提醒用户；

如果是自己做的登陆窗口，就直接find对应的数据行，检查那两列是否勾选。

Dim fdr As DataRow = DataTables("users").SqlFind("name = '" & user.Name & "'")

If fdr Is Nothing Then

    msgbox("用户不存在")

Else

    If fdr("系统批准") = False OrElse fdr("公司批准") = False Then

        msgbox("你没被批准")

    End If

End If

你添加一个users表进来吧，方便查询

http://www.foxtable.com/help/topics/1812.htm