In my program I recreate a table as follows:
top= Table1.Top
left= Table1.Left
height=Table1.Height
width= Table1.Width
Table1.dispose
Msgbox("1")
AddTable("Form1","Table1",left,top,width,height)
Msgbox("2")
Table1.AddCol(CString,"F",15)
Table1.AddCol(CString,"POI's",450)
Table1.AddCol(CString,"Photo1",0)
Table1.AddCol(CString,"Photo2",0)
Table1.AddCol(CString,"Photo3",0)
Table1.AddCol(CNumber,"ID",0)
Table1.AddCol(CString,"Comment",0)
Msgbox("3")
Table1.Visible=false
Table1.clear
The MsgBox messages are inserted for debugging. Between 2 and 3 I get an error reported. In debugging mode the code works fine.
On the Desk Top I get the message ( translated): The collection of column styles contains already a column style with the same name. Parameter name: column.
Is something left after Dispose?
Harry
top= Table1.Top
left= Table1.Left
height=Table1.Height
width= Table1.Width
Table1.dispose
Msgbox("1")
AddTable("Form1","Table1",left,top,width,height)
Msgbox("2")
Table1.AddCol(CString,"F",15)
Table1.AddCol(CString,"POI's",450)
Table1.AddCol(CString,"Photo1",0)
Table1.AddCol(CString,"Photo2",0)
Table1.AddCol(CString,"Photo3",0)
Table1.AddCol(CNumber,"ID",0)
Table1.AddCol(CString,"Comment",0)
Msgbox("3")
Table1.Visible=false
Table1.clear
The MsgBox messages are inserted for debugging. Between 2 and 3 I get an error reported. In debugging mode the code works fine.
On the Desk Top I get the message ( translated): The collection of column styles contains already a column style with the same name. Parameter name: column.
Is something left after Dispose?
Harry