新增文章

文章标题分类内容

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
        m_ListInterface.EnableListFillRowEvents = True   ' 允许激发 ListFillRow 事件
    End If
    
    
End Sub

Private Sub m_ListInterface_ListFillRow(ByVal lRow As Long, ByVal RowData As Object, ByVal HeadDict As KFO.IDictionary, CellData As String, BackColor As Long, ContinueRaise As Boolean)
'更改 明细数据
    
    If aNoAmount = True Then
    
        aFColName = HeadDict("FColName"):  aFKey = HeadDict("FKey")
        
        Select Case aFColName
    
            Case "FPrice":
                CellData = "":  ' BackColor = vbRed   'FPrice  销售单价  FPriceSale = ""
                
            Case "FAmount":
                CellData = "": ' BackColor = vbGreen   'FAmount  销售金额  FAmountSale = ""
        End Select

ContinueRaise = True
        
        
    End If

End Sub

Private Sub m_ListInterface_ListSumRowFill(ByVal lRow As Long, ByVal HeadDict As KFO.IDictionary, CellData As String, BackColor As Long, ContinueRaise As Boolean)
'更改 合计
    
    If aNoAmount = True Then
    
        aFColName = HeadDict("FColName"):  aFKey = HeadDict("FKey")
        
        Select Case aFColName
    
            Case "FAmount":
                CellData = ""     'FAmount  销售金额  FAmountSale = ""
        End Select

ContinueRaise = True
        
    End If

End Sub