- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]if逻辑 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=77702)
-- 发布时间：2015/11/23 22:12:00
-- [求助]if逻辑
记录窗口的“保存”按钮，有个逻辑需求是：
如果“变更说明”字段为空，则messagebox提示 “请输入变更说明”，并继续保留该窗口，将光标移到“变更说明”字段。
代码如何实现？
If r("ModifyNotes") Is Nothing Then
messagebox.show("请输入变更说明!","提示")
？？？？？
Else
......
end if
此主题相关图片如下：6.png
-- 发布时间：2015/11/23 22:14:00
--
[此贴子已经被作者于2015/11/23 22:14:39编辑过]
-- 发布时间：2015/11/23 22:17:00
--
无法看到您回复的内容？
-- 发布时间：2015/11/23 22:20:00
--
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