RemoveRow

<< Clique para Mostrar o Sumário >>

 

RemoveRow

RemoveRow(Row)

Remove a Linha no índice especificado. O parâmetro Row determina a Linha da tabela a ser removida e deve estar entre 1 (um) e Count. Exemplo:

Sub RemoveRow_Click()
  On Error Resume Next
  Dim Bind
  Set Bind =_
    Screen.Item("Retangulo1").Links.Item("ForegroundColor")
  If Bind Is Nothing Then
    MsgBox "Retangulo1 não tem associação!"
  Else
    MsgBox "Retangulo1 está ligado à '" & Bind.Source & "'"
    Dim row
    row = Screen.Item("Row").Value
    MsgBox "Removendo a linha " & row
    Bind.RemoveRow row
  End If
End Sub

Esta página foi útil?