Home » Developer & Programmer » Forms » how to set value to OleVar
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;
Previous Topic: lost in perfomance after using forms 6i
Next Topic: Urgent !Hierarchical Tree!
Goto Forum:
  


Current Time: Sun May 19 08:27:28 CDT 2024