dear all,

can anybody help me? is there something wrong with my code, because it doesn't work in my program:

1. i want to add a field in a cursor crsCodeAll.

******* it doesn't work ********
SELECT * FROM Library!tCodeWord;
UNION;
SELECT * FROM Library!tCodeName;
ORDER BY 1;
INTO CURSOR crsCodeAll READWRITE

ALTER TABLE crsCodeAll ADD COLUMN lselected n(1)



******** it works very well *******
CREATE CURSOR crsKodeAll (ckata c(15), ckode c(4), lselected n(1))

SELECT * FROM Library!tCodeWord;
UNION;
SELECT * FROM Library!tCodeName;
ORDER BY 1;
INTO TABLE tqCodeAll

ALTER TABLE tqCodeAll ADD COLUMN lselected n(1)

SELE crsCodeAll
APPEND FROM tqCodeAll


2. i want to copy some data, but it won't appear in my Grid.

local lcCode

lcCode='US'

SELE crsCodeAll
COPY TO crsSearch FOR cCode=lcCode

ThisForm.Grid1.RecordSource='crsSearch'
ThisForm.Grid1.Refresh()