复选框问题 - 编程论坛

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

需求：在中间的班级列表中选中一个班级，用右侧的“姓名”复选框来控制选定班级的人员名单是否显示在右侧的姓名框中，选中则显示，去掉勾选则清空姓名列表。

现在的问题是：在复选框中打勾时，会将姓名显示到列表里，但去掉勾选时，无法清除姓名列表。再次勾选时，又再次添加了一次人员名单，就这样重复添加，却无法清除。

复选框的click事件和interachivechange事件都试过了，结果一样。

代码：

程序代码：

if thisform.pageframe1.page3.list1.listindex > 0

    scx="_"+ALLTRIM(thisform.pageframe1.page3.list1.displayvalue)

    DO case
        CASE thisform.pageframe1.page3.check4.Value = 1

               SELECT &scx From classes  WHERE LEN(ALLTRIM(&scx))#0 INTO ARRAY namesj

             FOR i = 1 TO ALEN(namesj)
                 thisform.pageframe1.page3.list2.additem(namesj(i))
            ENDFOR

        CASE thisform.pageframe1.page3.check4.Value = 0

             IF thisform.pageframe1.page3.list2.ListCount > 0

                   FOR i = thisform.pageframe1.page3.list2.ListCount TO 1 setp -1

                     thisform.pageframe1.page3.list2.removeitem(i)

                ENDFOR

            ENDIF
    ENDCASE

ELSE
    messagebox("请选择要清除数据的班级名称！",0+48,"重要提醒")
ENDIF

    thisform.pageframe1.page3.list2.Refresh