Method: Remove for 2DTableColumns

Download PDF

Updated2024-09-12
1 minute(s) read

Deletes a column from a 2D table in DIAdem REPORT.

Object.Remove(Index)

Object	2DTableColumns Object with this method
Index	LongInteger Specifies the table column.

The following example deletes from each 2D table of the current worksheet the column with the highest index:

VBScript

Python

Copy script

Dim oMyReportObj, oMyReportObjects, iColumnCount 
Set oMyReportObjects = Report.ActiveSheet.Objects
For Each oMyReportObj in oMyReportObjects
  If oMyReportObj.ObjectType = eReportObject2DTable Then
    iColumnCount = oMyReportObj.Columns.Count 
    If iColumnCount > 1 Then
      Call oMyReportObj.Columns.Remove(iColumnCount)
    End If
  End If
Next

oMyReportObjects = dd.Report.ActiveSheet.Objects 
for oMyReportObj in oMyReportObjects: 
    if oMyReportObj.ObjectType == dd.eReportObject2DTable : 
        iColumnCount = oMyReportObj.Columns.Count 
        if iColumnCount > 1 : 
            oMyReportObj.Columns.Remove(iColumnCount)

DIAdem Help

Table of Contents

Method: Remove for 2DTableColumns

See Also