以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  窗口退出按钮  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=59469)
--  作者：blsu33
--  发布时间：2014/11/4 22:08:00
--  窗口退出按钮
老师，
   窗口退出按钮不执行验证编码规则、编码名称为空、关闭功能，请老师帮忙看下。

For Each r As Row In Tables("部门档案").rows
    If r("编码规则") Is Nothing Then  \'编码规则字符型
        messagebox.show("必须输入编码规则","提示")
        e.Cancel =True
        Return
        If r("编码名称") Is Nothing Then \'编码 名称字符型
            messagebox.show("必须输入编码名称","提示")
            e.Cancel =True
            Return
            If r.Locked= False Then
                If messagebox.show( "已经保存了新增数据","提示")Then
                    r.Locked= True
                    DataTables("部门档案").Save
                    Forms("部门档案").Close
                    Forms("主界面").open
                End If
            End If
        End If
    End If
Next

[此贴子已经被作者于2014-11-4 22:10:29编辑过]
--  作者：有点甜
--  发布时间：2014/11/4 22:22:00
--  

你这段代码有什么问题？

 

弹出什么？报什么错？
--  作者：blsu33
--  发布时间：2014/11/4 22:55:00
--  
点击“增加按钮” 再点击退出 上述代码 未执行


[此贴子已经被作者于2014-11-5 21:57:56编辑过]
--  作者：有点甜
--  发布时间：2014/11/4 22:58:00
--  

For Each r As Row In Tables("部门档案").rows
    If r.Isnull("编码规则")Then  \'编码规则字符型
        messagebox.show("必须输入编码规则","提示")
        e.Cancel =True
        Return
        If r.Isnull("编码名称") Then \'编码 名称字符型
            messagebox.show("必须输入编码名称","提示")
            e.Cancel =True
            Return
            If r.Locked= False Then
                If messagebox.show( "已经保存了新增数据","提示")Then
                    r.Locked= True
                    DataTables("部门档案").Save
                End If
            End If
        End If
    End If
Next

With Tables("部门档案")
    .Sort = "编码规则"
End With

Forms("部门档案").Close
--  作者：blsu33
--  发布时间：2014/11/6 23:31:00
--  
老师，
    为什么，我的“部门档案”点击删除，然后立即点击保存，会提示如下错误？烦您帮我改一下，谢谢您。

图片点击可在新窗口打开查看此主题相关图片如下：错误.png
图片点击可在新窗口打开查看



[此贴子已经被作者于2014-11-7 9:46:24编辑过]
--  作者：有点甜
--  发布时间：2014/11/7 9:17:00
--  

If Tables("部门档案").Current Is Nothing Then Return

If Tables("部门档案").Current.isnull("编码规则") = True Then
    MessageBox.Show("部门编码不能为空!","提示")
    Return
End If

If Tables("部门档案").Current.isnull("编码名称") = True Then
    MessageBox.Show("部门名称不能为空!","提示")
    Return
End If

Tables("部门档案").Current().Locked=True
Tables("部门档案").save