Table 动态显示牌管理

Table

Table对象实现了表（动态显示牌）管理功能，用户可以通过此对象任意控制表的显示内容以及格式等。

属性

属性	说明
RowCount	得到表行个数（只读）
ColCount	得到表列个数（只读）
Name	得到表名称（只读）。注意：如果频繁调用该属性，请注意使用完毕后释放返回值
BlockName	得到表当前打开的板块或者分类名称。注意：如果频繁调用该属性，请注意使用完毕后释放返回值
BlockType	得到表当前打开的板块或者分类类别；0市场分组，1分类板块，2系统板块（品种栏对应）
ItemType	得到指定格的属性，0数字，1文字。使用方法: ItemType(Row,Col)取指定行Row，指定列Col的属性
ColName	得到或设置列名称。例如ColName(5)="VBA自定义",表示将第6列表头文字设置为 "VBA自定义"。 注意：如果频繁调用该属性，请注意使用完毕后释放返回值

方法

方法	说明
GetItemText	得到指定格的字符串文字,若该格为数字时，将转化为字符串后返回。  GetItemText(Row,Col)   Row: 指定行   Col: 指定列 注意：如果频繁调用该属性，请注意使用完毕后释放返回值
GetItemValue	得到指定格的数字值 ,若该格为字符串，那么将返回0  GetItemValue(Row,Col)   Row: 指定行   Col: 指定列
SetItemText	设置指定格的字符串文字  SetItemText(Row,Col,Text)   Row: 指定行   Col: 指定列   Text:设置文字内容
SetItemValue	设置指定格为数字  SetItemValue(Row,Col,Value)   Row: 指定行   Col: 指定列   Value：设置为数字
Refurbish	刷新显示当前表  当通过SetItemText和SetItemValue设置完显示数字和文字后，调用此方法刷新显示
SortCol	排序指定列  SortCol(Col,Type)   Col: 基于0索引的列序号   Type：排序方式 1正序；2反序。若Col为 -1 ，表示取消当前表排序
SwitchBlock	切换动态牌当前的板块  SwitchBlock(Name, Type)   Name:分类或者板块名称， 如"上海A股"等，   Type:类别，0市场分组，1分类板块，2系统板块（品种栏对应）.   示例：    SwitchBlock("上海A股", 0)表示当前表切换到上海A股分类，    SwitchBlock("自选股", 1)表示切换到自选股板块
ClearAllSelected	清除当前表所有选择
SetSelectedRow	选择指定行（基于0索引）
EnsureVisible	确保某行为可视状态，系统通过上下滚动条来保证该行一定处于可视范围
GetReportData	返回指定行（基于0索引）的关联品种的ReportData对象
GetGrid	得到所属窗格的Grid对象
SetItemColor	设置指定格的颜色  call Table.SetItemColor(0,5,RGB(0,0,255))   表示将第一行，第6列数据格颜色设置为蓝色

示例

' 得到框架名称为"Report"，窗格名称为"上海指数"的表对象
Set Table = Report.GetGridByName("上海指数").GetTable()

'显示当前一共多少行数据
MsgBox Table.RowCount()
 

'为防止用户自定义的数据项在表格重新刷新时被新数据覆盖，我们一般应该在框架的RefurbishFinished事件中处理
Sub Report_RefurbishFinished(Table)

    '得到框架名称为"Report"，窗格名称为"上海指数"的表对象
    Set Table = Report.GetGridByName("上海指数").GetTable()

    '将第一行第6列数据格设置数字为 1589
    call Table.SetItemValue(0,5,1589)

    '设置该行颜色为蓝色
    call Table.SetItemColor(0,5,RGB(0,0,255))

    '修改表头文字
    Table.ColName(5) = "VBA自定义"

    '重新刷新表
    Table.Refurbish

End Sub