我的意思是：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

一步步的调试，看看为什么没经过msgbox（其实就是没符合条件）
if DataGrid1.Bookmark is not null

For i = 0 To 4
If Grid1.Columns(i).CellText(Grid1.Bookmark) = "" Then
MsgBox "记录中字段不能为空！", vbOK, "确认"
Else
If IsNull(Grid1.Bookmark) = False Then MsgBox "修改成功！", vbOKOnly + vbExclamation, ""
End If
Next

我用FOR 语句判断一条记录的5个列,显示是显示了,但他会显示5次,怎么改?