AddCol to Table problem ?

HARRY

Active Member
Licensed User
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
 

agraham

Expert
Licensed User
I don't get an error with that exact fragment of code which runs as I expect in the IDE and desktop legacy compile. However the optimising compile leaves the table visible at the end seemingly ignoring the "Table1.Visible=false" statement. I'll investigate a bit more and post that last effect as a bug.
 
Top