各位兄弟,诚心请教,数据从列表框导出,但结果是,有办法吗?
tj1=""
 tj2=""
FOR i =1 TO thisform.list2.ListCount
thisform.list2.ListIndex =i
tj1 = tj1+ALLT(thisform.list2.Value)+","
tj2 = tj2+  ALLT(thisform.list2.Value)+"  OR  员工姓名 =  "
ENDFOR
tj1=SUBSTR(tj1,1,LEN(tj1)-1)
tj2= SUBSTR(tj2,1,LEN(tj2)-18)
结果实现：邓传财  OR  员工姓名 =  邓传官  OR  员工姓名 =  饶德龙  OR  员工姓名 =  王永添  OR  员工姓名 =  乐允庶  OR  员工姓名 =  潘启辉，用户名没有加双影号，不能做筛选利用中，
想实现的效果是："邓传财"  OR  员工姓名 =  "邓传官"  OR  员工姓名 =  "饶德龙"  OR  员工姓名 =  "王永添"  OR  员工姓名 =  "乐允庶"  OR  员工姓名 =  "潘启辉"，

诚心请教.

WITH _screen
    .AddObject("list1","listbox")
    WITH .list1
        .RowSourceType = 1
        .RowSource = "邓传官,饶德龙,王永添"
        .Visible = 1
        tj = ""
        FOR i=1 TO .listcount
            tj = tj + [,"]+.list(i)+["]
        ENDFOR
    ENDWITH 
    tj = "INLIST(员工姓名, " + SUBSTR(tj,2) + ")"
    MESSAGEBOX("查找员工姓名：邓传官 or 饶德龙 or 王永添"+0h0D+"表达式："+0h0D+tj)
    .RemoveObject("list1")
ENDWITH

多谢，哥，我试一下。

tj1=""

FOR i =1 TO thisform.list2.ListCount
thisform.list2.ListIndex =i
tj1 = tj1+"员工姓名=" +["]+ALLT(thisform.list2.Value) +["]+","

ENDFOR
tj1=SUBSTR(tj1,1,LEN(tj1)-1)

thisform.edit1.VALUE= tj1
thisform.Refresh
员工姓名="邓日传",员工姓名="邓日友",员工姓名="邓家桔",员工姓名="陈元军",员工姓名="苏忠元",员工姓名="饶德养",员工姓名="韦宗华",员工姓名="肖二生",员工姓名="陈建民",员工姓名="王杰"
刚好做查询条件设置。

用INLIST()不用“=”，参考VFP帮助

用命令中的条件表达式来检索会受到语句的限制
可将选择的列表数据放到一个表，用操作表的命令去检索

感谢吹水哥，我好好研究一下。