hi,

ok ,i put this example ,i get it.
thank you.
i have 3 qustion,
1. i use your code to chise 4500 records randomly,but i get all of them same information,
2. i have at my excel sheet field as date(10-02-2004) some times with time as(10-02-2004 10:15:23)
if i let my fld c(10) i get number as 6547
if i change to date(8) i get nothing.
what is the code can let the date just date,and i can use that code with my code
3. i have 2 excel sheet at the same book, but ineed sheet 2 to do my operation, is any code can do that autamticly.

SET TALK OFF
SET ECHO off
GETDIR()

thisform.text1.Value=GETFILE()
SET DEFAULT TO c:\samerqda\samerqda
LOCAL lcTableName
lcTableName = thisform.text2.value  
CREATE TABLE &lcTableName (char1 C(10), char2 C(70),char3 C(10), char4 C(10),char5 C(10), char6 C(40),char7 C(10), char8 C(10),char9 c(10), fld10 datetime(40),char11 C(10), char12 C(10),char13 C(10), char14 C(40),char15 C(10), char16 C(10),char17 C(10), char18 C(70),char19 C(10), char20 C(10),char21 C(10), char22 C(40),char23 C(10), char24 C(10),char25 C(10), char26 C(70),char27 C(10), char28 C(10) NOCPTRANS)
APPEND FROM (thisform.text1.value)TYPE XLS

***********************
USE (thisform.text2.value) exclusive ALIAS SomeAlias
index on char9 tag char9
select sys(2015) as SortOrder,* from SomeAlias ;
 into cursor crsTemp nofilter

select SomeAlias && now it should work
zap
select crsTemp
scan
 if !seek(char9 ,'SomeAlias','char9')

scatter memvar memo
 insert into (thisform.text2.value) from memvar
 endif
endscan
BROWSE

for i = 1 to 4
****** or: for i = 1 to ThisForm.Text1.Value
 * insert into (thisform.text2.value)
 insert into (thisform.text2.value) from memvar
next

regards.