关于同时清除TEXTBOX中内容的代码求助 Post By:2014/4/22 23:09:00 [显示全部帖子]
If user.group = "运营管理科文员" Then If Tables("文件管理").Current.IsNull("审核") Then Tables("文件管理").Current("发布") = Nothing Tables("文件管理").Current("发布日期") = Nothing Tables("文件管理").Current("发布意见") = Nothing Tables("文件管理").Current.Save() Else MessageBox.Show("此行已被审核,不能取消发布内容!") End If Else MessageBox.show("你无取消发布权限!") End If