主题：[求助]自定义登录窗口 更改用户 窗口出错！

Afterload 代码如下：

Dim UserName As String
Dim UserGroup As String
Dim PassWord As String
Dim cmd As New SQLCommand
Dim dt As DataTable
If Forms("用户管理").Opened Then '正常打开
    UserName = Forms("用户管理").Controls("ListBox1").SelectedItem
Else
    UserName = _UserName '_UserName为全局变量,用于保存当前用户名
    e.Form.Controls("UserName").Enabled = False
    e.Form.Controls("UserGroup").Enabled = False
End If
e.Form.Text = e.Form.Text & "-" & UserName

cmd.CommandText = "Select * From {Users} Where [Name] = '" & UserName & "'"
dt = cmd.ExecuteReader
If dt.DataRows.Count = 1 Then
    e.Form.Controls("UserName").Value = UserName
    e.Form.Controls("UserGroup").Value = dt.DataRows(0)("Group")
    e.Form.Controls("PassWord").Value = dt.DataRows(0)("PassWord")
Else
    MessageBox.Show("用户不存在或者已经被删除!","提示",MessageBoxButtons.OK)
    e.Form.Close()
End If

Dim cmx As New SQLCommand
Dim dx As DataTable

cmx.CommandText = "SELECT DISTINCT Group From {users}"
dx = cmx.ExecuteReader
e.Form.controls("usergroup").Combolist = dx.GetComboListString("Group")

出错窗口如下：

此主题相关图片如下：1.jpg

此主题相关图片如下：2.jpg

查了半天没查出毛病 在哪里 ！

帖子不知道 怎么回事  有些代码显示不出来

上面代码中的cmd.C应该为

cmd.链接数据源名称= "扬州华泰内控系统数据源1"

擦   果然！

是SQL做为数据源的原因吧

但是 我用户登录窗口 没有 [] 号 没这个问题啊

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

我记起来了   由于 我在狐表里直接创建  Users 数据源(外部sql数据源)时出错   只建了一个name列 但是 Group  和 PassWord  没 建起来

没办法 我只好在 服务器上得sqlserver上 添加了这2列 但不知为什么 其中的Group  默认是[Group]    是什么情况？

另外我总觉得 新版的 直接在狐表内部 创建外部数据源这功能  有问题  我建过2个表 都出错  最后都得在sql server服务器上修改的表

额  是关键词啊！

那我刚才提得那个是什么原因？   狐表里直接创建sql外部数据表 老出错