Dim kwmch As WinForm.TextBox = e.Form.Controls("TextBox3") If kwmch.text <> "" Then Dim fdr As DataRow = DataTables("仓库管理").find("库位名称 = '" & kwmch.text & "'") If fdr IsNot Nothing Then MessageBox.show("你输入的库位名称已经存在,请更换重新输入","提示") Else MessageBox.show("你输入的库位名称可用","提示") End If Else MessageBox.show("请输入新的库位名称才能检测","提示") End If