给你一段示例代码：

Dim ctrl

Dim coll

Dim lIndex

Dim lCellIndex

Set ctrl = ScreenItems("AlarmControl")

Set coll = ctrl.GetRowCollection

HMIRuntime.Trace "Number of message rows:" & coll.Count & vbCrLf

'enumerate and trace out row numbers

For lIndex = 1 To coll.Count

HMIRuntime.Trace "Row: " & (ctrl.GetRow(lIndex).RowNumber) & " "

'enumerate and trace out column titles and cell texts

For lCellIndex = 1 To ctrl.GetRow(lIndex).CellCount

HMIRuntime.Trace ctrl.GetMessageColumn(lCellIndex -1).Name & " "

HMIRuntime.Trace ctrl.GetRow(lIndex).CellText(lCellIndex) & " "

Next

HMIRuntime.Trace vbNewLine

Next