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

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