列表框数据导出,如何再次进行数据处理,诚心请教.

沈思定发布于 2021-11-25 20:48， 1257 次点击

各位兄弟,诚心请教,数据从列表框导出,但结果是,有办法吗?
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  员工姓名 =  "潘启辉"，

7 回复

沈思定2021-11-25 21:31

诚心请教.

吹水佬2021-11-25 22:11

程序代码：

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

沈思定2021-11-26 19:25

回复 3楼吹水佬

多谢，哥，我试一下。

沈思定2021-11-26 21:55

回复 3楼

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
员工姓名="邓日传",员工姓名="邓日友",员工姓名="邓家桔",员工姓名="陈元军",员工姓名="苏忠元",员工姓名="饶德养",员工姓名="韦宗华",员工姓名="肖二生",员工姓名="陈建民",员工姓名="王杰"
刚好做查询条件设置。

吹水佬2021-11-27 08:51

回复 5楼沈思定

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

吹水佬2021-11-27 08:55

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

沈思定2021-11-27 15:58

回复 7楼吹水佬

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