主题：[求助]取消当前行编辑

 

老师好：当前表有一列为：客户名称，已设置从”客户管理“表中的”客户名称“列取值； “客户管理"表中有"客户名称“列和”代码“列，”代码“列为"客户名称“列的大写拼音字母，且不超过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