>Problem is the SQL statement is like this:
>

>select distinct STR(Userno,2) + " "+ IIF(ISNULL(username),"          ",SUBSTR(Username, 1, 10))+ IIF(ISNULL(Users.init),"          ",Users.init)+  IIF(ISNULL(Users.PWChgDate),'  /  /    ',DTOC(Users.PWChgDate)) + " "+ALLTRIM(STR(Users.Language)) from users where not deleted() order by userno into cursor cur_users

>
>So I can't put it in this way.
>
>But I fixed the problem.
>
>When I set rowsorurce=""
>It reports the error because I initailly set rowsource='cur_user'
>In the properties dialog.
>If IO set it to (none)
>It works fine.
>
>So thanks!
Good it works. FYI:

*Your original SQL
select distinct STR(Userno,2) + " "+ ;
  IIF(ISNULL(username),"          ",SUBSTR(Username, 1, 10))+ ;
  IIF(ISNULL(Users.init),"          ",Users.init)+  ;
  IIF(ISNULL(Users.PWChgDate),'  /  /    ',DTOC(Users.PWChgDate)) + ;
  " "+ALLTRIM(STR(Users.Language)) ;
 from users ;
 where not deleted() ;
 order by userno ;
 into cursor cur_users

* Listbox.init
lcSQL = [select distinct STR(Userno,2) + " "+] + ;
  [IIF(ISNULL(username),"          ",SUBSTR(Username, 1, 10))+] + ;
  [IIF(ISNULL(Users.init),"          ",Users.init)+ ]+ ;
  [IIF(ISNULL(Users.PWChgDate),'  /  /    ',DTOC(Users.PWChgDate)) + ]+;
  [" "+ALLTRIM(STR(Users.Language)) ]+;
 [from users ] +;
 [where not deleted() ]+;
 [order by userno ]+;
 [into cursor cur_users]
with this
 .Rowsourcetype = 3
 .Rowsource = lcSQL
endwith

Cetin