主题：命令按钮问题

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:命令按钮.txt

保存按钮代码如:
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

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

1.保存和编辑没有任何对应关系, 禁止编辑可以设置行的Locked属性  http://www.foxtable.com/help/topics/0427.htm

1、

 

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

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

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