- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 命令按钮问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=64057)
-- 发布时间：2015/2/4 10:39:00
-- 命令按钮问题
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:命令按钮.txt |
-- 发布时间：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
执行"删除"命令后出现提示对话框,有"是"和"否"两个选项命令,现在单击这两个按钮,都一样执行删除作用,应该选"否"时
返回编辑界面才对,错在哪里?
-- 发布时间：2015/2/4 10:43:00
--
1.保存和编辑没有任何对应关系, 禁止编辑可以设置行的Locked属性 http://www.foxtable.com/help/topics/0427.htm
-- 发布时间：2015/2/4 10:44:00
--
1、
With Tables("住院记录")
If .Current IsNot Nothing Then\'如果current 不等于空值那么
.Current.Locked = True
.Current.Save()\'保存
End If
End With
-- 发布时间：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