以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助 保存按钮  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=70838)

--  作者:lingyun00800
--  发布时间:2015/6/30 8:42:00
--  求助 保存按钮
 做了个按钮,想实现的功能是
保存前检测当前行 所有列内容不为空 ,如果为空,弹出对话框提示。

--  作者:大红袍
--  发布时间:2015/6/30 9:43:00
--  
For Each c As Col In Tables("表A").Cols
    If Tables("表A").Current.IsNull(c.Name) Then
        msgbox(c.name & " 空")
        Return
    End If
Next
Tables("表A").Current.Save