主题：[求助]if逻辑

记录窗口的“保存”按钮，有个逻辑需求是：

如果“变更说明”字段为空，则messagebox提示 “请输入变更说明”，并继续保留该窗口，将光标移到“变更说明”字段。

 

代码如何实现？

 

If r("ModifyNotes") Is Nothing Then
    messagebox.show("请输入变更说明!","提示")
    ？？？？？
Else
......

end if

 

 

此主题相关图片如下：6.png

 

无法看到您回复的内容？

If r("ModifyNotes") Is Nothing Then
    messagebox.show("请输入变更说明!","提示")
   
    Dim rgd As WinForm.RecordGrid = e.Form.Controls("RecordGrid1")
    Dim g As object  = rgd.basecontrol
    For Each r As object In g.rows
        If r(0) = "第五列" Then
            g.Select(r.index,1)
            g.StartEditing
        End If
    Next
   
    Return
   
End If

 

Tables("表A").Save