how to set value to OleVar [message #86115] |
Wed, 01 September 2004 19:09 |
zhangrui
Messages: 37 Registered: March 2003
|
Member |
|
|
DECLARE
NEW_COL OLEOBJ;
COL_COUNT number;
NameArray OleVar ;
BEGIN
--- how to set value for NameArray ,I want to add sub column for column1
NameArray :=.........?
COL_COUNT := ORACLESPREADTABLE_DMMTX.ColumnCount(:ITEM('OCXBLK.OCXITM').interface);
--Add a column
ORACLESPREADTABLE_DMMTX.NewColumnByColNum(:ITEM('OCXBLK.OCXITM').interface,COL_COUNT);
--name column and set column width
NEW_COL := ORACLESPREADTABLE_DMMTX.GetColumnByIndex(:ITEM('OCXBLK.OCXITM').interface,COL_COUNT);
ORACLESPREADTABLE_ICOLUMN.NAME(NEW_COL,COL_COUNT);
ORACLESPREADTABLE_ICOLUMN.WIDTH(NEW_COL,50);
--Add Sub Column
OracleSpreadTable_IColumn.AddSubColumns(NEW_COL,NameArray);
--Get the column count
:OCXBLK.NUMCOLUMN := ORACLESPREADTABLE_DMMTX.ColumnCount(:ITEM('OCXBLK.OCXITM').interface);
END;
|
|
|