TextTableView.Add

Adds an entry based on the given node number.

Syntax:

Add( Index As Long, ProjectFile As ProjectFile, NodeNumber As Long ) As Long

Return: Long

Parameters: Index Index where the new entry should be inserted. If Index = -1 the node will be added at the end.
ProjectFile Project file of the node to be added.
NodeNumber Number of the node to be added.

Example:
Sub TestTextTableView() Dim View As TextTableView Dim ProjFile As ProjectFile Dim TU As TransUnit Dim Index As Long Set View = Application.ActiveProject.ProjectDocument.TextTableView Set ProjFile = Application.ActiveProjectFile Set TU = Application.ActiveTransUnit Index = View.GetIndex(ProjFile, TU.Number) If (View.RemoveAt(Index)) Then Index = View.Add(-1, ProjFile, TU.Number) View.Refresh (-1) End If

See also:

Class TextTableView

Syntax:	Add( Index As Long, ProjectFile As ProjectFile, NodeNumber As Long ) As Long
Return:	Long
Parameters:	Index Index where the new entry should be inserted. If Index = -1 the node will be added at the end. ProjectFile Project file of the node to be added. NodeNumber Number of the node to be added.
Example:	Sub TestTextTableView() Dim View As TextTableView Dim ProjFile As ProjectFile Dim TU As TransUnit Dim Index As Long Set View = Application.ActiveProject.ProjectDocument.TextTableView Set ProjFile = Application.ActiveProjectFile Set TU = Application.ActiveTransUnit Index = View.GetIndex(ProjFile, TU.Number) If (View.RemoveAt(Index)) Then Index = View.Add(-1, ProjFile, TU.Number) View.Refresh (-1) End If