关于VFP中LIST控件的使用，新手又遇到困难了，请大神帮忙看看！ - 编程论坛

#2

redrum06182020-11-07 07:23

只有本站会员才能查看附件，请登录

附上表格和表单

#3

sdta2020-11-07 08:21

只有本站会员才能查看附件，请登录

#4

吹水佬2020-11-07 14:39

回复 2楼 redrum0618

下载无效?
也可以这样：

程序代码：

CREATE CURSOR mrdata (cons_no C(10), act_mode C(10))
INSERT INTO mrdata VALUES ("3012228345","201")
INSERT INTO mrdata VALUES ("3012228345","201")
INSERT INTO mrdata VALUES ("3011251411","")
INSERT INTO mrdata VALUES ("3011251411","")
of = CREATEOBJECT("form1")
of.show(1)
RETURN

DEFINE CLASS form1 as Form
    ADD OBJECT cmd1 as commandbutton WITH left=10,top=10,height=22
    ADD OBJECT list1 as listbox WITH left=10,top=40,;
        RowSourceType=3,;
        RowSource="SELECT distinct cons_no FROM mrdata WHERE empty(act_mode) INTO CURSOR hh"

    PROCEDURE cmd1.click
        INSERT INTO mrdata VALUES ("3012228345","")
        INSERT INTO mrdata VALUES ("3011251412","")
        thisform.list1.Requery
    ENDPROC
ENDDEFINE

只有本站会员才能查看附件，请登录

#5

radiofan2020-11-07 20:13

高手如云

#6

redrum06182020-11-07 22:27

回复 4楼吹水佬

已经知道了，原来是少了个引号

#7

redrum06182020-11-07 22:27

回复 3楼 sdta

谢谢大神，可以了。

#8

schtg2020-11-08 14:15

学习啦！