Event: EventActionDel for XTable

Sub XTable1_EventActionDel(ByRef This, ByRef bDone)
  If This.SelectedElements.Count = 1 Then
    Dim MySel: Set MySel = This.SelectedElements.Item(1)
    Dim i, oMyChannel
    Set oMyChannel = Data.Root.ActiveChannelGroup.Channels(MySel.FirstCol)
    For i = MySel.FirstRow To MySel.LastRow
      oMyChannel.Values(i) = NoValue 
    Next
    Call This.Refresh
    BDone = TRUE
  Else
    BDone = FALSE
  End If
End Sub

Sub XTable1_EventValGet(ByRef This, Row, Col, ByRef Cell, IsInputCell)
  If Row = 0 Then
    If Col <> 0 Then
      Cell.Text = ChnName(Col)
    Else
      Cell.Text = ""
    End If
  Else
    Select Case Col
    Case 0
      Cell.Text = Row
    Case Else
      Cell.Text = Str(Data.Root.ActiveChannelGroup.Channels(Col).Values(Row))
    End Select 
  End If
End Sub