| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 设置配置菜单按钮安条件不可用 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=162785) |
|
| -- 作者：采菊东篱下 -- 发布时间：2021/4/15 14:42:00 -- 设置配置菜单按钮安条件不可用 我在配置菜单按钮里写了这段代码，希望如果财务数据源表字号列出现记字，菜单上的会计凭证录入下的收款凭证按钮不可用，可保存后菜单上的按钮依然可用，应怎么写？ Dim dr As DataRow = DataTables("财务数据源").SQLFind("[字号] = \'记\'") If dr IsNot Nothing Then ConfigBar.Items("会计凭计录入").Items("收款凭证").Enabled = False Else ConfigBar.Items("会计凭计录入").Items("收款凭证").Enabled = True Forms("收款凭证").Open() End If
[此贴子已经被作者于2021/4/16 12:20:32编辑过]
|
|
| -- 作者：有点蓝 -- 发布时间：2021/4/15 14:46:00 --
|
|
| -- 作者：采菊东篱下 -- 发布时间：2021/4/15 14:54:00 -- 弹出2 |
|
| -- 作者：有点蓝 -- 发布时间：2021/4/15 14:56:00 -- 说明没有符合条件的数据，或者没有保存。如果是包含关系，使用like：http://www.foxtable.com/webhelp/topics/0102.htm |
|
| -- 作者：采菊东篱下 -- 发布时间：2021/4/15 15:01:00 -- 哦，要按这个按钮才执行，我想让它自动识别代码应放哪？ |
|
| -- 作者：有点蓝 -- 发布时间：2021/4/15 15:05:00 -- 那要看需要什么时候做这件事 |
|
| -- 作者：采菊东篱下 -- 发布时间：2021/4/15 15:09:00 -- 打开菜单按钮时自动识别按钮是否可用。 |
|
| -- 作者：有点蓝 -- 发布时间：2021/4/15 15:28:00 -- DropDown：http://www.foxtable.com/webhelp/topics/1105.htm |
|
| -- 作者：13315253800 -- 发布时间：2021/4/16 12:13:00 -- Dim dr As
DataRow = DataTables("财务数据源").SQLFind("[字号] = \'记\'") If dr IsNot
Nothing Then ‘msgbox(1) ConfigBar.Items("会计凭计录入").Items("收款凭证").Enabled = False ConfigBar.Items("会计凭计录入").Items("付款凭证").Enabled = False ConfigBar.Items("会计凭计录入").Items("转账凭证").Enabled = False Else ‘msgbox(2) ConfigBar.Items("会计凭计录入").Items("收款凭证").Enabled = True ConfigBar.Items("会计凭计录入").Items("收款凭证").Enabled = True ConfigBar.Items("会计凭计录入").Items("转账凭证").Enabled = True ‘
Forms("收款凭证").Open() End If |
|
| -- 作者：采菊东篱下 -- 发布时间：2021/4/16 12:35:00 -- 谢谢，这样处理三个按钮一起不可见，不用一个个鼠标经过才不见。 |