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

谁帮我一下,表A窗口的要求

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目9.table

 看了，但不懂你的意思，文本框1选择A表中的用户，是怎么选择呢？

 再有，问题的重点是什么，好像听见的样子。

刚回来,不好意思。这是一个简化的用户登录窗口，是用ComboBox选择（这里简化为文本框1），原窗口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

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

 

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

第4行怎么不显示

cmd.C

连接数据源

奇怪，怎么打不上去

 

cmd.C

 

重新上传了示例文件

Dim cmd As New SQLCommand
Dim dt As DataTable
Dim dr As DataRow = e.DataRow
cmd.ConnectionName = "行政区域"
cmd.CommandText = "SELECT * From {行政区域} Where [省市] = '" & dr("省市") & "' And [县市] = '" & dr("县市") & "'"
dt = cmd.ExecuteReader
If dt.DataRows.Count > 0 Then
dr("区号") = dt.DataRows(0)("区号")
dr("邮编") = dt.DataRows(0)("邮编")
Else
dr("区号") = Nothing
dr("邮编") = Nothing
End If

重发了示例文件,能否做在示例文件上

你都老六啦，是这样吗：

 

用户控件的ValueChanged：

 

Dim yh As String = e.Form.Controls("用户").value
Dim dr As DataRow
dr = DataTables("表A").Find("用户 = '" & yh & "'")
e.Form.Controls("TextBox2").value = dr("角色")

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