combobox增加删除ITEM 问题

[fyfcom]

nCnt=thisform.shapE1.combo2.ListCount +1
thisform.shapE1.combo2.AddListItem(captionid,nCnt,1)
thisform.shapE1.combo2.AddListItem(.name,nCnt,2)

[fyfcom]

button1 click
&&增加一项，绑定列为第二列。
nCnt=thisform.shapE1.combo2.ListCount +1
thisform.shapE1.combo2.AddListItem(captionid,nCnt,1)
thisform.shapE1.combo2.AddListItem(.name,nCnt,2)


button2 click
&& 删除COMBOBOX中与.name相等的项
FOR i = 1 TO thisform.shapE1.combo2.ListCount
IF thisform.shapE1.combo2.ListItem(i,2) =.name
thisform.shaPE1.combo2.RemoveListItem(i)
EXIT
ENDIF
ENDFOR

发现，我删除某一行之后再增加都只是对再后一行进行更改了，并没再增加一行

请指教是哪里出了问题
谢谢

[wwwwb]

什么问题？

[十豆三]

请参考：

两个List控件的数据选取

*-----------------------

示例：

设表单上有List1和List2


List1的Init事件：

This.RowSourceType=1
This.RowSource="A,B,C,D,E,F,G,H,I,J"
This.DisabledItemBackColor=Rgb(255,200,200)
*This.DisabledItemForeColor=Rgb(0,0,0)


List1的DblClick事件：

Thisform.list2.AddListItem(This.ListItem(This.ListItemId),Thisform.list2.ListCount+1,1)
Thisform.list2.AddListItem(Transform(This.ListItemId),Thisform.list2.ListCount,2)
This.ListItem(This.ListItemId)="\"+This.ListItem(This.ListItemId)


List2的DblClick事件：

Thisform.list1.ListItem(Val(This.ListItem(This.ListItemId,2)))=This.ListItem(This.ListItemId)
This.RemoveListItem(This.ListItemId)

[十豆三]

Combobox 与 Listbox 原理一样。

[fyfcom]

请问我代码哪里出了问题吗

[fyfcom]

没解决。

[十豆三]

做的不错

[fyfcom]

因为我并没有两个COMBOBOX
我的程序是这样设计的

button1 click
&&打开一个FORM ,可同时打开多个不同的FORM，并增加到COMBOBOX中
........打开代码
&&增加一项，第一列为FORM.CAPTION ,第二列为form.name,绑定列为第二列。
nCnt=thisform.shapE1.combo2.ListCount +1
thisform.shapE1.combo2.AddListItem(form.caption,nCnt,1)
thisform.shapE1.combo2.AddListItem(form.name,nCnt,2)

button2 click
&&关闭某一个FORM
........关闭代码

&& 删除COMBOBOX中与form.name相等的项
FOR i = 1 TO thisform.shapE1.combo2.ListCount
IF thisform.shapE1.combo2.ListItem(i,2) =.name
thisform.shaPE1.combo2.RemoveListItem(i)
EXIT
ENDIF
ENDFOR

COMBOBOX CLICK
&&显示COMBOBOX.value对应的FORM
..........显示代码

出现这样的问题

同时打开多个FORM后，如两个。即COMBOBOX有两行。
当我将第一个FORM关闭后，COMBOBOX剩下一行。

当我再打开一个新的FORM时，想要的效果是COMBOBOX会增加一行
但现在COMBOBOX只是将剩下的一行的内容更改了，并没有增加一行。

经跟踪发现，当关闭第一FORM后，COMBOBOX剩下的一行是thisform.shapE1.combo2.ListItem(2,2)
而不是thisform.shapE1.combo2.ListItem(1,2)
而这时combobox.listcount=1

应该怎样才能达到这个交往果呢？我应该请指教
谢谢。

[十豆三]

button1 Click
&&增加一项，绑定列为第二列。
nCnt=Thisform.shapE1.combo2.ListCount +1
Thisform.shapE1.combo2.AddItem(captionid,nCnt,1)
Thisform.shapE1.combo2.AddListItem(.Name,nCnt,2)


button2 Click
&& 删除COMBOBOX中与.name相等的项
For i = 1 To Thisform.shapE1.combo2.ListCount
	If Thisform.shapE1.combo2.ListItem(i,2) =.Name
		Thisform.shaPE1.combo2.RemoveItem(i)
		Exit
	Endif
Endfor

[十豆三]

要理解 AddItem 与 AddListItem 及 RemoveItem 与 RemoveListItem 区别

多看一看帮助文件

[fyfcom]

当初是这样想的
打开的FORM相当于一个队列。当某一个FORM关闭时，其后面的FORM的位置会前移。
combobox.click
showform(this.value,this.listindex)&&需要用到listindex,后面打开的listindex应该大

例如 打开顺序
combobox：formA ,formB ,formC
LISTINDEX:1,2,3


当formB 关闭时
combobox: formA,formC
listindex:1,2
再次打开formB
combobox:formA,formC,formB
listindex:1,2,3

但当再打开FORMB时发现
combobox:formA,formB
listindex:1,2
但当再打开FORMD,FORME,FORMF....,
combobox:formA,formB&& 并不会加一行,只是最后一行更改了
listindex:1,2

[fyfcom]

[Quote=引用 9 楼 apple_8180 的回复:]
VB code
button1 Click
&&增加一项，绑定列为第二列。
nCnt=Thisform.shapE1.combo2.ListCount +1
Thisform.shapE1.combo2.AddItem(captionid,nCnt,1)
Thisform.shapE1.combo2.AddListItem(.Name,nCnt,2)


butto……
[/Quote]

豆三兄：根据你的代码，当点了BUTTON2后，再点BUTTON1时，是增加了一行
但Thisform.shapE1.combo2.AddListItem(.Name,nCnt,2)却并没有在新增的一行
而是把之前剩下的最后一行的替换了。

[十豆三]

把我 9楼代码中的

Thisform.shapE1.combo2.AddListItem(.Name,nCnt,2)

改为

Thisform.shapE1.combo2.AddListItem(.Name,Thisform.shapE1.combo2.IndexToItemId(Thisform.shapE1.combo2.ListCount),2)

[fyfcom]

Thisform.shaPE1.combo2.RemoveItem(i)
也要改为
Thisform.shaPE1.combo2.RemoveListItem(i)

否则删不了对应的行。

谢谢豆三兄

[fyfcom]

这是最终效果图，请指教

[fyfcom]

图片显示不全的?要另存为才可以看全图,晕