<< 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