主题：[求助] 用户管理

If User.name = "我要注册"  Then
    For Each ob As object In QAT.Items
        If ob = "daohanglan"  Then
            ob.Enabled = False
        End If
    Next
Else 

    Forms("导航栏").Open()
    MainTable = Tables("aaa")
End If

 

这句代码输入正常，执行报错。如何修改？请指教！！！

 

此主题相关图片如下：_11akhv}j64hq%rwud(janx.jpg

  请教林老师：

上次提到的用户管理如何实现网络同步，即管理员修改或添加用户后，被修改或添加的用户能直接登录。

谢谢做一个例子，行吗？！！！

 上传说过了，如果要实现通过代码添加用户的话，就需要自己弄一个用户管理，而不能使用系统自带的用户管理。

 看例子。http://www.foxtable.com/help/topics/2048.htm

看过了 ，不太实用。我希望的是类似邮箱注册类的方案。先帮我解决一楼的问题吧！

谢谢林老师帮我看看一楼的问题，如何解决？！！！

下班了？？？！！！！！！

If User.name = "我要注册"  Then
    For Each ob As object In QAT.Items
        If ob.Name = "daohanglan"  Then
            ob.Enabled = False
        End If
    Next
Else 

    Forms("导航栏").Open()
    MainTable = Tables("aaa")
End If

 
==========

或者 ob.Text

 如果你要做远程注册，你至少安装一个sql数据库，然后在狐表设置数据源。注册的信息写入数据库，就可以了。