主题：无法将类型为的对象强制转换为类型

按照教程添加了用户登录窗口的AfterLoad事件代码：

Dim cmb As WinForm.ComboBox = e.Form.Controls("UserName")
cmb.ComboList = _UserTable.SQLGetComboListString("Name")

又按照教程添加了项目AfterOpenProject代码：

Dim cmd As New SQLCommand
cmd.ConnectionName = "User"
cmd.CommandText = "SELECT * Fr om {Users} Where [Name] Is Null"
_UserTable = cmd.ExecuteReader(True)

Forms("用户登录").Open()
If _UserName = "" Then
Syscmd.Project.Exit()
Return '这个要加上,因为既然要退出,就不应该再执行后面的初始化代码了,否则会出错
End If

但是现在报错：

错误所在事件：窗口,用户登录,AfterLoad

详细错误信息：

无法将类型为“Foxtable.WinForm.TextBox”的对象强制转换为类型“Foxtable.WinForm.ComboBox”。

Dim cmb As WinForm.ComboBox = e.Form.Controls("UserName")

 

改成

 

Dim cmb As WinForm.TextBox = e.Form.Controls("UserName")

此主题相关图片如下：qq截图20170720124042.jpg

 删除你的用户名控件。改成ComboBox类型的控件。

 

 或者，去掉出错的哪句代码。