主题：关于目录树问题

 试试用代码

 

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

 

 例子，请发上来。

 代码没有问题，你数据明显有问题啊，你的项目都是空值。

 登陆窗口确认按钮代码

 

_UserName = e.Form.Controls("UserName").Value
Dim dr As DataRow
If _UserName = ""  Then
    Messagebox.show("请选择用户!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If
dr = _UserTable.SQLFind("[Name] = '" & _UserName & "'")
If dr Is Nothing Then
    Messagebox.show("此用户不存在!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If
If e.Form.Controls("PassWord").Value = dr("Password") Then
    _UserGroup = dr("Group")
    e.Form.Close
Else
    Messagebox.show("密码错误!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

回复11楼，就只是用户名的问题啊，我测试没有问题啊。

 

你在更改那里弹出msgbox(UserName) 看看就知道了啊