命令按钮问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 命令按钮问题

共有2266人关注过本帖树形打印复制链接主题：命令按钮问题

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/2/4 10:43:00 [显示全部帖子]

保存按钮代码如:
With Tables("住院记录")
    If .Current IsNot Nothing Then'如果current 不等于空值那么
        .Current.Save()'保存
    End If
End With

问题1: 执行保存命令后,保存的行为什么还可以编辑呢?,我需要的是禁止编辑,,只要执行"编辑"按钮后才可以执行,
这样的话,编辑命令按钮咋写?

删除按钮代码如下:
With Tables("住院记录")
    If .Current IsNot Nothing Then
MessageBox.Show("只有网管才能删除", "提示",MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    e.Cancel = True
        .Current.Delete
    End If
End With

执行"删除"命令后出现提示对话框,有"是"和"否"两个选项命令,现在单击这两个按钮,都一样执行删除作用,应该选"否"时
返回编辑界面才对,错在哪里?

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/2/4 10:44:00 [显示全部帖子]

1、

With Tables("住院记录")
If .Current IsNot Nothing Then'如果current 不等于空值那么

        .Current.Locked = True
        .Current.Save()'保存
    End If
End With

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/2/4 10:45:00 [显示全部帖子]

2、

With Tables("住院记录")
    If .Current IsNot Nothing Then
        Dim result As DialogResult
        result = MessageBox.Show("只有网管才能删除", "提示",MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If result = DialogResult.Yes Then
            .Current.Delete
        End If
    End If
End With

下一主题 >> << 上一主题

主题：命令按钮问题