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

你都老六啦，是这样吗：

用户控件的ValueChanged：

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