主题：请教 代码为何不起作用

Select Case e.DataCol.Name
    Case "染厂名称"
        Dim dr1 As DataRow
        dr1 = DataTables("染厂").Find("名称='" & e.newvalue & "' ")
        If dr1 IsNot Nothing Then
            e.DataRow("染厂编码")=dr1("编码")
        Else
            e.DataRow("染厂编码")=""           
        End If

找不到名称 染厂编码为何不为空