新增文章

文章标题分类内容

Dim aComm1 As New aComm
 Dim aNoAmount As Boolean

Private WithEvents m_ListInterface  As ListEvents  '定义 ListEvents 接口. 必须具有的声明, 以此来获得事件
 
 
 
 Public Sub Show(ByVal oListInterface As Object)   'ListEvents 接口实现  '注意: 此方法必须存在, 请勿修改
' 一次性效果，点击【过滤】后 失效

Set m_ListInterface = oListInterface
    
    aFUserId = m_ListInterface.K3Lib.User.UserID
    aFClassTypeID = m_ListInterface.DataSrv.ClassTypeID
    aTableName = m_ListInterface.DataSrv.ClassType("FTableName")
    
    aNoAmount = aComm1.aCheckFunc1(m_ListInterface, aFUserId, aFClassTypeID, 18, "NoAmount")    '序时簿 不显示金额
    
    If aNoAmount = True Then

Set aHeader = m_ListInterface.DataSrv.Header

For i = 1 To aHeader.UBound

aFColName = aHeader(i)("FColName")

If aFColName = "FPrice" Or aFColName = "FAmount" Then

aHeader(i)("FVisible") = 0   '隐藏列
            End If
        Next

m_ListInterface.DataSrv.Header = aHeader 
        m_ListInterface.RefreshList
    End If
    
End Sub