主题：通过输入代码来输入国家名称

请先看以下示例：

假定在某个文本框中，希望通过输入代码来输入国家名称，可将DataParse事件代码设为：

If e.Value IsNot Nothing Then
If e.Value = "ZG" Then
e.Value = "中国"
ElseIf e.Value = "MG" Then
e.value = "美国"
ElseIf e.Value = "RB" Then
e.value = "日本"
End If
End If

这样用户在文本框输入"cn"，离开此文本框时，"cn"会被自动替换为"中国"。

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

我希望是：

在窗体的TextBox1个文本框中，通过输入代码来输入国家名称：

在表B中，有“国家”和“简码”二列，例如：国家：中国，简码：ZG

窗体的TextBox1个文本框中，我录入ZG，TextBox1能根据表B中找到对应的国家名称“中国”

请问如何做到？

参考这个：
http://www.foxtable.com/help/topics/1458.htm
 
帮助是根据A列内容，找出B列的对应值，你的是同一个列，怎么调整，你懂的。

TextBox1控件ValueChanged事件

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