>CREATE CURSOR mytable (dummy c(10)) >INSERT INTO mytable VALUES ('a') > >lcSQL = "Select * from myTable where myTable.Dummy = 'a' INTO CURSOR crsDummy nofilter" >lcDummy = space(8192-LEN(m.lcSQL)+1) > >Select * from myTable where myTable.Dummy = 'a' &lcDummy.INTO CURSOR crsDummy nofilter >>
>Public oForm > >oForm = Createobject('MyForm') >oForm.Show() > >Define Class MyForm As Form > Add Object lb As ListBox > > Procedure Load > Create Cursor mytable (dummy c(10)) > Insert Into mytable Values ('a') > Endproc > > Procedure lb.Init > lcSQL = "Select * from myTable where myTable.Dummy = 'a' INTO CURSOR crsDummy nofilter" > lcDummy = Space(8192-Len(m.lcSQL)+1) > > This.RowSourceType=3 > This.RowSource = "Select * from myTable where myTable.Dummy = 'a' "+m.lcDummy+"INTO CURSOR crsDummy nofilter" > Endproc >Enddefine >>