[求助]为什么这条语句不起作用,怎么改
我的意思是:Datagrid1当前行只要有一列为提示:"记录中字段不能为空!", 当前行都不为空提示:"修改成功!",
为什么就算 MsgBox "修改成功!",不起作用?每次都不提示,怎么改
Private Sub cmdupdate_Click()
Dim i As Integer
Set rscou = Dataenv.rscourse.Clone
For i = 0 To 4
If DataGrid1.Columns(i).CellText(DataGrid1.Bookmark) = "" Then
MsgBox "记录中字段不能为空!", vbOK, "确认"
Else
If DataGrid1.Bookmark = Not Null Then MsgBox "修改成功!", vbOKOnly + vbExclamation, ""
End If
Next
rscou.Update
End Sub