TextBox1控件ValueChanged事件
Dim dr As DataRow = DataTables("表B").Find("简码 = '" & e.Sender.Value & "'")If dr IsNot Nothing Then e.Sender.Value = dr("国家")End If