主题：文本框与控件(重传示例文件)

刚回来,不好意思。这是一个简化的用户登录窗口，是用ComboBox选择（这里简化为文本框1），原窗口AfterLoad代码

Dim cmd As New SQLCommand
Dim dt As DataTable
Dim cmb As WinForm.ComboBox = e.Form.Controls("UserName")

cmd.CommandText = "SELECT DISTINCT Name From {Users}"
dt = cmd.ExecuteReader()
For Each dr As DataRow In dt.Datarows
   cmb.Items.Add(dr("Name"))
Next

我想选择用户名（UserName，示例中的文本框1）后，自动显示该用户所担任的角色

表A = Users  文本框1 = UserName  用户 = Name

第4行怎么不显示

cmd.C

连接数据源

奇怪，怎么打不上去

cmd.C

重新上传了示例文件

我今天感冒了，不能用脑。惭愧，我只是狐龄长，还不够六尾狐的水平。多谢啦。