在写一个函数，函数有两个可选参数，分别是字段字符串和条件字符串，想实现动态的copy to array varArray (fields field) (for condition),现在遇到的问题是函数中无论是宏替换还是名称表达式都提示不可识别的命令（但在命令窗口中红色部分使用宏替换运行成功且结果正确），尝试拼接命令字符串使用execscript函数，虽然?execscript("&cmd")显示.t.，但后续的过程中会提示找不到变量varArray（实际应该没执行成功？），求高手们指点

更正一下，是copy到数组

[此贴子已经被作者于2015-12-11 12:28编辑过]

Select (fields field) ... Where for condition Into Table tablename ....

谢谢，这是个解决方法，还是想看看copy to能否实现此效果

可以
字段列表要用EVALUATE()
条件要用单双引号

CREATE CURSOR t1 (f1 c(10),f2 c(10),f3 c(10))
INSERT INTO t1 (f1,f2,f3) VALUES ('1','2','3')
INSERT INTO t1 (f1,f2,f3) VALUES ('A','B','D')
str1="f1,f3"
str2="F1='A'"
SELECT T1
COPY TO C:\TMP1 FIELDS &STR1. FOR &STR2.
EXECSCRIPT("COPY TO C:\TMP2 FIELDS "+STR1+" FOR "+STR2)
SELECT &str1. FROM T1 INTO TABLE C:\TMP3 WHERE &str2.

嘿嘿，这样不行的，我那两个参数是可选的，而且可能是多个字段多个条件，中间会有空格，你这样写的话也可能会出错

[此贴子已经被作者于2015-12-11 12:33编辑过]

Create Cursor t1 (F1 C(10), F2 C(10), F3 C(10))
Insert Into T1 Values ('1','2','3')
Insert Into T1 Values ('1','B','D')
Insert Into T1 Values ('A','B','D')
Insert Into T1 Values ('A','B','3')
=Copy2Arr("F2, F3", [F1 > '1'])  && 有条件
*!*    =Copy2Arr("F2, F3", [])  && 无条件


Function Copy2Arr(Fld As Character, Condition As Character)
    lcCond = Iif(Empty(Condition), "", "For " + Condition)
    Copy To Array MyArr Fields &Fld &lcCond
    Clear
    List Memory Like MyArr
Endfunc

=Copy2Arr("F1, F2, F3", [F1 > '1' And F3 > '3' ])  && 多条件

解决了，之前我是把copy to 后面的fields和for两个关键字放到字段和条件字符串中了，现在是这样Copy To Array varArray Fields &varField For &varCondition，当未给定字段和条件参数时varField默认为"*",varCondition默认为"1=1"，谢谢以上的回复。