Hello,
I am trying to create an xdialog box that will display records from an ADO connected Database. On one of the columns I want to limit the available choices to one of three options. When I use Genie and tell it to make the column for this field a listbox, I am never getting the option to setup the allowed choices for this column and when I run the dialog box this column appears to be non existent. I have been able to programmatically add choices that display on the screen but they have no effect on the data in the table.
An example of the control definition that displays and update the column I am working with is this: (the column I am working with is highlighted in red)
AdoForm.ControlDefinitions = <<%string%
~DataObj1.EntityID~|||[4.7DataObj1.Row[__i__\].Data.Display.EntityID!DataObj1.Data.EntityID_change]
~DataObj1.Name~|||[-1.2DataObj1.Row[__i__\].Data.Display.Name!DataObj1.Data.Name_change]
~DataObj1.Type~|||[-1.2DataObj1.Row[__i__\].Data.Display.Type!DataObj1.Data.Type_change]
~DataObj1.EntityID_label~|||<%B=N;O={J=L,C}{F=__font__}EntityID;OF={J=C,C}{F=__font__,U}EntityID%!DataObj1.Label.EntityID>
~DataObj1.Name_label~|||<%B=N;O={J=L,C}{F=__font__}Name;OF={J=C,C}{F=__font__,U}Name%!DataObj1.Label.Name>
~DataObj1.Type_label~|||<%B=N;O={J=L,C}{F=__font__}Type;OF={J=C,C}{F=__font__,U}Type%!DataObj1.Label.Type>
~DataObj1_First~|||<%T=First record;B=T;I=$a5_record_first%!DataObj1.Event.First?DataObj1.flag.First>
~DataObj1_Previous~|||<%T=Previous record;B=T;I=$a5_record_previous%!DataObj1.Event.Prev?DataObj1.flag.Prev>
~DataObj1_Next~|||<%T=Next record;B=T;I=$a5_record_next%!DataObj1.Event.Next?DataObj1.flag.Next>
~DataObj1_Last~|||<%T=Last record;B=T;I=$a5_record_last%!DataObj1.Event.Last?DataObj1.flag.Last>
%string%
An example of where I can get the listbox to show is this:
AdoForm.ControlDefinitions = <<%string%
~DataObj1.EntityID~|||[4.7DataObj1.Row[__i__\].Data.Display.EntityID!DataObj1.Data.EntityID_change]
~DataObj1.Name~|||[-1.2DataObj1.Row[__i__\].Data.Display.Name!DataObj1.Data.Name_change]
~DataObj1.Type~|||[%v%.10test^=a_test]
~DataObj1.EntityID_label~|||<%B=N;O={J=L,C}{F=__font__}EntityID;OF={J=C,C}{F=__font__,U}EntityID%!DataObj1.Label.EntityID>
~DataObj1.Name_label~|||<%B=N;O={J=L,C}{F=__font__}Name;OF={J=C,C}{F=__font__,U}Name%!DataObj1.Label.Name>
~DataObj1.Type_label~|||<%B=N;O={J=L,C}{F=__font__}Type;OF={J=C,C}{F=__font__,U}Type%!DataObj1.Label.Type>
~DataObj1_First~|||<%T=First record;B=T;I=$a5_record_first%!DataObj1.Event.First?DataObj1.flag.First>
~DataObj1_Previous~|||<%T=Previous record;B=T;I=$a5_record_previous%!DataObj1.Event.Prev?DataObj1.flag.Prev>
~DataObj1_Next~|||<%T=Next record;B=T;I=$a5_record_next%!DataObj1.Event.Next?DataObj1.flag.Next>
~DataObj1_Last~|||<%T=Last record;B=T;I=$a5_record_last%!DataObj1.Event.Last?DataObj1.flag.Last>
%string%
What I would like to do is find a way to combine the field information for the two fields that are displayed in red into one field. Is this possible?
I hope that someone will have some ideas.
Thanks in advance.
I am trying to create an xdialog box that will display records from an ADO connected Database. On one of the columns I want to limit the available choices to one of three options. When I use Genie and tell it to make the column for this field a listbox, I am never getting the option to setup the allowed choices for this column and when I run the dialog box this column appears to be non existent. I have been able to programmatically add choices that display on the screen but they have no effect on the data in the table.
An example of the control definition that displays and update the column I am working with is this: (the column I am working with is highlighted in red)
AdoForm.ControlDefinitions = <<%string%
~DataObj1.EntityID~|||[4.7DataObj1.Row[__i__\].Data.Display.EntityID!DataObj1.Data.EntityID_change]
~DataObj1.Name~|||[-1.2DataObj1.Row[__i__\].Data.Display.Name!DataObj1.Data.Name_change]
~DataObj1.Type~|||[-1.2DataObj1.Row[__i__\].Data.Display.Type!DataObj1.Data.Type_change]
~DataObj1.EntityID_label~|||<%B=N;O={J=L,C}{F=__font__}EntityID;OF={J=C,C}{F=__font__,U}EntityID%!DataObj1.Label.EntityID>
~DataObj1.Name_label~|||<%B=N;O={J=L,C}{F=__font__}Name;OF={J=C,C}{F=__font__,U}Name%!DataObj1.Label.Name>
~DataObj1.Type_label~|||<%B=N;O={J=L,C}{F=__font__}Type;OF={J=C,C}{F=__font__,U}Type%!DataObj1.Label.Type>
~DataObj1_First~|||<%T=First record;B=T;I=$a5_record_first%!DataObj1.Event.First?DataObj1.flag.First>
~DataObj1_Previous~|||<%T=Previous record;B=T;I=$a5_record_previous%!DataObj1.Event.Prev?DataObj1.flag.Prev>
~DataObj1_Next~|||<%T=Next record;B=T;I=$a5_record_next%!DataObj1.Event.Next?DataObj1.flag.Next>
~DataObj1_Last~|||<%T=Last record;B=T;I=$a5_record_last%!DataObj1.Event.Last?DataObj1.flag.Last>
%string%
An example of where I can get the listbox to show is this:
AdoForm.ControlDefinitions = <<%string%
~DataObj1.EntityID~|||[4.7DataObj1.Row[__i__\].Data.Display.EntityID!DataObj1.Data.EntityID_change]
~DataObj1.Name~|||[-1.2DataObj1.Row[__i__\].Data.Display.Name!DataObj1.Data.Name_change]
~DataObj1.Type~|||[%v%.10test^=a_test]
~DataObj1.EntityID_label~|||<%B=N;O={J=L,C}{F=__font__}EntityID;OF={J=C,C}{F=__font__,U}EntityID%!DataObj1.Label.EntityID>
~DataObj1.Name_label~|||<%B=N;O={J=L,C}{F=__font__}Name;OF={J=C,C}{F=__font__,U}Name%!DataObj1.Label.Name>
~DataObj1.Type_label~|||<%B=N;O={J=L,C}{F=__font__}Type;OF={J=C,C}{F=__font__,U}Type%!DataObj1.Label.Type>
~DataObj1_First~|||<%T=First record;B=T;I=$a5_record_first%!DataObj1.Event.First?DataObj1.flag.First>
~DataObj1_Previous~|||<%T=Previous record;B=T;I=$a5_record_previous%!DataObj1.Event.Prev?DataObj1.flag.Prev>
~DataObj1_Next~|||<%T=Next record;B=T;I=$a5_record_next%!DataObj1.Event.Next?DataObj1.flag.Next>
~DataObj1_Last~|||<%T=Last record;B=T;I=$a5_record_last%!DataObj1.Event.Last?DataObj1.flag.Last>
%string%
What I would like to do is find a way to combine the field information for the two fields that are displayed in red into one field. Is this possible?
I hope that someone will have some ideas.
Thanks in advance.
Comment