以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  无法将类型为的对象强制转换为类型  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=103959)

--  作者:初心不改再说未来
--  发布时间:2017/7/20 11:50:00
--  无法将类型为的对象强制转换为类型

按照教程添加了用户登录窗口的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”。





[此贴子已经被作者于2017/7/20 12:10:24编辑过]

--  作者:有点甜
--  发布时间:2017/7/20 12:32:00
--  

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

 

改成

 

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


--  作者:初心不改再说未来
--  发布时间:2017/7/20 12:41:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20170720124042.jpg
图片点击可在新窗口打开查看

不行啊

--  作者:有点甜
--  发布时间:2017/7/20 12:47:00
--  

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

 

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