在菜单中进行程序实现,出现了附件中的提示,请问修改方法,谢谢。
Dim drx As Row=Tables("电梯信息表").CurrentIf drx.isnull("使用单位") Then messagebox.show("必须输入使用单位") e.Form.Controls("TextBox2").Select() ReturnEnd If