主题：find返回值不生效

 Dim dr As DataRow

        dr = .DataTable.Find("yhdm = '"& yhdm &"'")

        If dr IsNot Nothing Then

            MessageBox.Show(.Cols("yhdm").Caption+yhdm+"已经存在!","警告")

            '新增或者修改时默认选中第一行第一列,并进入编辑状态

            e.Form.Controls("you1").BaseControl.Row=0

            e.Form.Controls("you1").BaseControl.Col=1

            e.Form.Controls("you1").BaseControl.StartEditing

            '新增或者修改时默认选中第一行第一列,并进入编辑状态

        Else

end if

以上代码，.DataTable.Find("yhdm = '"& yhdm &"'")无论输入什么都会提示已经存在，如果直接改成.DataTable.Find("yhdm = '005‘)常量就能正常判断

求帮助