你都老六啦,是这样吗:
用户控件的ValueChanged:
Dim yh As String = e.Form.Controls("用户").valueDim dr As DataRowdr = DataTables("表A").Find("用户 = '" & yh & "'") e.Form.Controls("TextBox2").value = dr("角色")