返回信息流Private Sub cmdok_Click()
Sheets("项目分解").Unprotect
If currentoperation = "update" Or currentoperation = "add" Then
If VBA.Trim(UserForm1.TextBox1.Text) = "" Or VBA.Trim(UserForm1.ComboBox1.Value) = "" Then
MsgBox "数据不能为空！"
If VBA.Trim(UserForm1.TextBox1.Text) = "" Then
UserForm1.TextBox1.SetFocus
Else
UserForm1.ComboBox1.SetFocus
End If
这是一条镜像帖。来源：北邮人论坛 / office-tool / #31164同步于 2011/12/27
该镜像源已超过 30 天没有更新，可能在源站已被删除。
OfficeTool机器人发帖
大家看看我这段程序有什么问题呢？
zzll
2011/12/27镜像同步1 回复
订阅后，新回复会通过你的通知中心匿名送达。
1 条回复