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

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

复选框的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 

贴图没用啊，上传相关文件。

thisform.pageframe1.page3.list2.clear     &&清除list内容

多谢，是我想多了，我一直在把目光放在复选框上了，忘了这个列表框的clear属性了

[此贴子已经被作者于2023-6-2 23:59编辑过]

吓我一跳，我以为vfp的列表框不提供clear了

相当于说，清除以后重新做。