zoukankan      html  css  js  c++  java
  • 新单序时簿插件

    Private Sub Object_ListFillRow (ByVal lRow As Long, ByVal RowData As Object, ByVal HeadDict As KFO.Dictionary, CellData As String, BackColor As Long, ContinueRaise As Boolean)

    部分
    描述

    Object
    ListEvents对象的一个实例。

    lRow
    Long类型。发生事件的行的行号。

    RowData
    Object对象。实际上是本行所有数据的 ADODB.Recordset 对象。

    HeadDict
    KFO.Dictionary 对象。当前单元格(字段)的信息。

    CellData
    String类型。当前单元格数据。

    BackColor
    Long类型。当前行的背景色。

    ContinueRaise
    Boolean类型。在下一行该单元格填充的时候是否发生 ListFillRow 事件。 


    注释

    每个行的每个可见的单元格(字段)的数据填充都会发生此事件。

    此事件是否发生,取决于 EnableListFillRowEvents 属性的设置。详细请参考 EnableListFillRowEvents属性的相关说明。

    更改 CellData 参数的值,可以改变单元格的实际填充数据。

    更改 BackColor 参数的值,可以改变行的背景色。可以使用 RGB 函数得到色值。

    ContinueRaise参数值默认为 True。 更改此值为 False,则下一行这个单元格填充的时候不会再发生 ListFillRow 事件。

    注意:如果要使用RowData 参数,插件工程还必须引用 Microsoft ActiveX Data Objects Library。

    示例

    根据填充的字段的值,实现:a、将1、2、3…对应成星期一、星期二、星期三…;b、将6、7对应的行背景设为绿色,其余为白色:

    Public Sub Show(ByVal oListInterface As Object)



        'ListEvents 接口实现

        '注意: 此方法必须存在, 请勿修改

        Set m_ListInterface = oListInterface

        

        '设置 EnableListFillRowEvents 属性,允许激发 ListFillRow 事件

        m_ListInterface.EnableListFillRowEvents = True

        

    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 HeadDict("FKey") = "FText" Then

            Select Case CellData

            Case “1”:

                CellData = "星期一"

                BackColor = vbWhite

            Case “2”:

                CellData = "星期二"

                BackColor = vbWhite

            Case “3”:

                CellData = "星期三"

                BackColor = vbWhite

            Case “4”:

                CellData = "星期四"

                BackColor = vbWhite

            Case “5”:

                CellData = "星期五"

                BackColor = vbWhite

            Case “6”:

                CellData = "星期六"

                BackColor = vbGreen

            Case “7”:

                CellData = "星期日"

                BackColor = vbGreen

            Case Else

                BackColor = vbWhite

            End Select

        End If

        ContinueRaise = True

        

    End Sub

  • 相关阅读:
    SAP UI5 formatter的工作原理
    SAP UI5 Negative cache的工作原理
    使用View modification扩展SAP Fiori应用的一个案例
    SAP Fiori应用没能从Fiori Launchpad启动的一个可能原因及分析过程
    使用扩展方式隐藏SAP Fiori应用某个表格标签页的实际案例
    使用Source Monitor检测Java代码的环复杂度
    一个小技巧,快速找出一段ABAP代码里访问到的所有透明表
    如何提取SAP UI5 XML view里定义的字段元素绑定信息(binding path)
    使用扩展技术将SAP Fiori应用隐藏动态创建的UI字段
    使用扩展技术对SAP Fiori应用进行端到端的增强,一个实际案例介绍
  • 原文地址:https://www.cnblogs.com/liangyuwen/p/13186237.html
Copyright © 2011-2022 走看看