组合框赋值问题？ - VFP论坛

编程论坛 → 数据库技术 → 『 VFP论坛』 → 组合框赋值问题？

标题：组合框赋值问题？

只看楼主

su0527

等　级：论坛游民
帖　子：452
专家分：79
注　册：2015-1-10
结帖率：96.03%

楼主

已结贴√ 问题点数：20 回复次数：1

组合框赋值问题？

组合框combo1中已经手动输入:M，当选择combo1下拉列表中的:N值后，combo1的值改变为：N。
如何现实，当选择下拉列表中的N后，combo1的值为：M+N（即在原有内容上，添加选择的内容）

搜索更多相关主题的帖子: 组合框　赋值　选择　下拉列表　内容　

2017-10-09 15:14

吹水佬

等　级：版主
威　望：432
帖　子：10064
专家分：41463
注　册：2014-5-20

第 2 楼

得分:20

是不是这样：

of = CREATEOBJECT("form1")
of.Show(1)

DEFINE CLASS form1 AS form
    ADD OBJECT combo1 AS combobox WITH top=10,left=10,RowSourceType=1,RowSource="L,M,N,O,P,Q"

    PROCEDURE combo1.KeyPress(nKeyCode, nShiftAltCtrl)
        this.Tag = "1"
    ENDPROC

    PROCEDURE combo1.InteractiveChange
        IF this.Tag == "1"
            this.Tag = ""
             = this.DisplayValue
        ELSE
            this.DisplayValue = ALLTRIM() + "+" + this.Value
        ENDIF
    ENDPROC
ENDDEFINE

2017-10-09 16:40

参与讨论请移步原网站贴子：https://bbs.bccn.net/thread-481214-1-1.html