设置配置菜单按钮安条件不可用 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

我在配置菜单按钮里写了这段代码，希望如果财务数据源表字号列出现记字，菜单上的会计凭证录入下的收款凭证按钮不可用，可保存后菜单上的按钮依然可用，应怎么写？

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编辑过]

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