新增文章
文章标题
分类
C#
云星空
K3 BOS
K3 功能
用友
Oracle
python
SQL
MySql
PHP
HTML
script
windows
Access
影视后期
财务
服务
生活
内容
Private Sub m_BillInterface_AfterLoadBill() '【设置】字段权限 后,仍可显示字段 Dim oEntrys As K3ClassEvents.BillEntrys: Set oEntrys = m_BillInterface.BillEntrys Dim oEntry As K3ClassEvents.BillEntry: Set oEntry = oEntrys(1) Set oFields = oEntry.BOSFields '--------------------------------------------------------------------- Set oField = oFields("FPrice") 'FPrice 销售单价 With oField .Visible = True '显示列:初始=False 就能不能再改为 True End With '--------------------------------------------------------------------- Set oField = oFields("FAmount") 'FAmount 销售金额 With oField .Visible = True End With End Sub
返回
保存