按照系统学习的自定义用户，登录老是提示密码错误，点取消后提示错误信息：

Afterload事件：

Dim cmd As New SQLCommand
Dim dt As DataTable
Dim cmb As WinForm.ComboBox = e.Form.Controls("UserName")
cmd.C
cmd.CommandText = "SELECT DISTINCT Name From {Users}"
dt = cmd.ExecuteReader()
For Each dr As DataRow In dt.Datarows
    cmb.Items.Add(dr("Name"))
Next
cmb.SelectedIndex = 0

确定按钮：

Dim UserName As String = e.Form.Controls("UserName").Value
Dim cmd As New SQLCommand
Dim dt As DataTable
Dim dr As DataRow
cmd.C
If UserName = ""  Then
    Messagebox.show("请选择用户!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If
cmd.CommandText = "Select * From {Users} Where [Name] = \'" & UserName & "\'"
dt = cmd.ExecuteReader
If dt.DataRows.Count = 0 Then
    Messagebox.show("此用户不存在!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If
dr = dt.DataRows(0)
If e.Form.Controls("Password").Value = dr("PassWord") Then
    _UserName = UserName
    _UserGroup = dr("Group")
    e.Form.Close
Else
    Messagebox.show("密码错误!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

取消按钮：

这样的用户管理系统 对于新手来说很难

密码都是明文，一点安全性都没有

狐表对于网络应用的支持要加强了

楼主，把你的文件发上来吧，单单代码没有意义的。

至于楼上说的密码是明文的，可以加密存储的，foxtable提供了多种加密函数。

我重新做个例子没有问题，使用的是ACC，但是我之前这个就不行，重做都不行，外部数据源SQL

其实我是希望狐爸把用户管理支持外部表的问题给升级了。

论坛经常碰到有人问用户管理的基础性问题。

新手用狐表，一上来不是被别的难住了，而是被这个用户管理的问题难住了。

根本没时间考虑商业逻辑了，直接开始考虑基础功能。

而且看着帮助里面大把的用户管理的例子不能直接用。

而且开发的简单的系统就要先折腾半天用户管理问题。呵呵。