Foxtable(狐表)用户栏目专家坐堂 → 设置配置菜单按钮安条件不可用


  共有4279人关注过本帖树形打印复制链接

主题:设置配置菜单按钮安条件不可用

美女呀,离线,留言给我吧!
采菊东篱下
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1882 积分:10385 威望:0 精华:0 注册:2019/4/6 8:45:00
设置配置菜单按钮安条件不可用  发帖心情 Post By: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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111393 积分:567029 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/4/15 14:46:00 [只看该作者]

Dim dr As DataRow = DataTables("财务数据源").SQLFind("[字号] = '记'")
If dr IsNot Nothing Then
msgbox(1)
    ConfigBar.Items("会计凭计录入").Items("收款凭证").Enabled = False
Else
msgbox(2)
    ConfigBar.Items("会计凭计录入").Items("收款凭证").Enabled = True
    Forms("收款凭证").Open()
End If


 回到顶部
美女呀,离线,留言给我吧!
采菊东篱下
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1882 积分:10385 威望:0 精华:0 注册:2019/4/6 8:45:00
  发帖心情 Post By:2021/4/15 14:54:00 [只看该作者]

弹出2

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111393 积分:567029 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/4/15 14:56:00 [只看该作者]

说明没有符合条件的数据,或者没有保存。如果是包含关系,使用like:http://www.foxtable.com/webhelp/topics/0102.htm

 回到顶部
美女呀,离线,留言给我吧!
采菊东篱下
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1882 积分:10385 威望:0 精华:0 注册:2019/4/6 8:45:00
  发帖心情 Post By:2021/4/15 15:01:00 [只看该作者]

哦,要按这个按钮才执行,我想让它自动识别代码应放哪?

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111393 积分:567029 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/4/15 15:05:00 [只看该作者]

那要看需要什么时候做这件事

 回到顶部
美女呀,离线,留言给我吧!
采菊东篱下
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1882 积分:10385 威望:0 精华:0 注册:2019/4/6 8:45:00
  发帖心情 Post By:2021/4/15 15:09:00 [只看该作者]

打开菜单按钮时自动识别按钮是否可用。

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111393 积分:567029 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/4/15 15:28:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
13315253800
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:603 积分:4392 威望:0 精华:0 注册:2018/1/3 16:03:00
  发帖心情 Post By: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


 回到顶部
美女呀,离线,留言给我吧!
采菊东篱下
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1882 积分:10385 威望:0 精华:0 注册:2019/4/6 8:45:00
  发帖心情 Post By:2021/4/16 12:35:00 [只看该作者]

谢谢,这样处理三个按钮一起不可见,不用一个个鼠标经过才不见。

 回到顶部