主题：[求助]按钮权限设置

当已保存时，浏览和上传按钮是不可见的，下面的代码好像没有生效，请帮忙看看。

CurrentChanged代码如下：

If Forms("BUG录入系统").Opened Then
    If  e.Table.Current("已保存") = False Then
        Forms("BUG录入系统").Controls("浏览").Enabled =True
        Forms("BUG录入系统").Controls("上传").Enabled =True
    Else
        Forms("BUG录入系统").Controls("浏览").Enabled =False
        Forms("BUG录入系统").Controls("上传").Enabled =False
    End If
End If

1、你在表中任意切换行才会触发currentChanged事件的；

 

2、控制代码，应该写在afterload里吧？

代码没有问题啊,你上个例子看看.

也有可能是你操作的是副本表,并不会触发主表的currentChanged

afterload代码如下：好像也没生效。

Dim lbl As WinForm.Label
lbl = e.Form.Controls("Welcome")
lbl.Text = "今天是" & Date.Today() & ",博达BUG综合管理系统欢迎您!"
If DataTables("BUG录入表").DataRows.Count = 0 Then
    Dim r As Row = Tables("BUG录入表").AddNew
    r("软件版本") = "请选择软件版本号"
    r("测试机型") = "请选择测试机型"
    r("测试项目") = "请输入测试项目标题,言简意赅"
    r("现象描述") = "请输入BUG故障信息,越详细越好.但不要罗里吧嗦,让研发看着郁闷!"
    r("严重程度") = "请选择严重程度"
    r("优先级别") = "请选择优先级别"
    r("怀疑模块") = "请选择模块"
    r("状态") = "待提交"
Else
    Dim r As Row = Tables("BUG录入表").AddNew
    r("软件版本") = "请选择软件版本号"
    r("测试机型") = "请选择测试机型"
    r("测试项目") = "请输入测试项目标题,言简意赅"
    r("现象描述") = "请输入BUG故障信息,越详细越好.但不要罗里吧嗦,让研发看着郁闷!"
    r("严重程度") = "请选择严重程度"
    r("优先级别") = "请选择优先级别"
    r("怀疑模块") = "请选择模块"
    r("状态") = "待提交"
End If
If Forms("BUG录入系统").Opened Then
    Dim rr As Row = Tables("BUG录入表").Current
    If  rr("已保存") = False Then
        Forms("BUG录入系统").Controls("浏览").Enabled =True
        Forms("BUG录入系统").Controls("上传").Enabled =True
    Else
        Forms("BUG录入系统").Controls("浏览").Enabled =False
        Forms("BUG录入系统").Controls("上传").Enabled =False
    End If
End If

DataTables("BUG录入表").Load()
Tables("BUG录入表").sort = "BUG_ID DESC"

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

点击浏览该文件:临时版本跟踪系统1225.rar

 代码写到currentchanged绝对有效啊，切换选择行么？

 

If Forms("BUG录入系统").Opened Then
    Dim rr As Row = Tables("BUG录入表").Current
    If  rr("已保存") = False Then
        Forms("BUG录入系统").Controls("浏览").Enabled =True
        Forms("BUG录入系统").Controls("上传").Enabled =True
    Else
        Forms("BUG录入系统").Controls("浏览").Enabled =False
        Forms("BUG录入系统").Controls("上传").Enabled =False
    End If
End If

哦。不能在currentchanged里面写，因为并没有切换行，就是对当前行的操作。

对BUG录入系统，当点击了保存，期望浏览和上传按钮是不可见的。

 

此主题相关图片如下：浏览上传.png

 那你可以写到保存按钮那里去啊