主题：新手关于行显示的问题

 老师好：当前表有一列为：客户名称，已设置从”客户管理“表中的”客户名称“列取值； “客户管理"表中有"客户名称“列和”代码“列，”代码“列为"客户名称“列的大写拼音字母，且不超过4位，如”大地实业公司“可设置为”DD",在当前表输入”DD“，可找到对应的”大地实业公司“；为了控制非法输入，在当前表的datacolchanging事件写了如下代码，可运行一直出错，请老师指教。我的邮箱为：liucxcase@sina.com 代码如下： Case "客户名称" If Char.IsLetter(e.NewValue) And len(e.NewValue) <= 4 Then Dim khdm As String = e.NewValue.Toupper Dim khdr As DataRow khdr = DataTables("客户管理").Find("代码 = '"& khdm & "'") If khdr IsNot Nothing Then e.NewValue = khdr("客户名称") Else e.Cancel = True End If Else Dim khdr As DataRow khdr = DataTables("客户管理").Find("客户名称 = '"& e.NewValue & "'") If khdr Is Nothing Then dr(“客户名称”) = e.NewValue else e.Cancel = True End If End If