续上一问!

[wf2091139]

nCnt = 1
DO WHILE nCnt <= THIS.Parent.lstSource.ListCount
IF THIS.Parent.lstSource.List(nCnt) = THIS.Parent.edtAdd.Value
=MesInfo("FIND",48,"提示")
THIS.Parent.lstDest.AddItem(THIS.Parent.lstSource.List(nCnt))
THIS.Parent.lstSource.RemoveItem(nCnt)
ELSE
nCnt = nCnt + 1
ENDIF
ENDDO


我用上面代码来检测 lstSource(列表框) 中 与edtAdd(文本框) 相同的就把他加到lstDest中
可是无论怎么弄 if 判断的都是假! 郁闷啊,有人能看下不?

[十豆三]

THIS.Parent.lstSource.List(nCnt) = THIS.Parent.edtAdd.Value

改成

ALLTRIM(THIS.Parent.lstSource.List(nCnt)) == ALLTRIM(THIS.Parent.edtAdd.Value)

[十豆三]

FOR nCnt=1 TO THIS.Parent.lstSource.ListCount
IF ALLTRIM(THIS.Parent.lstSource.List(nCnt))==ALLTRIM(THIS.Parent.edtAdd.Value)
=MesInfo("FIND",48,"提示")
THIS.Parent.lstDest.AddItem(THIS.Parent.lstSource.List(nCnt))
THIS.Parent.lstSource.RemoveItem(nCnt)
ENDIF
ENDDO

[wwwwb]

FOR ncnt=1 TO THIS.Parent.lstSource.ListCount
if trim(THIS.Parent.lstSource.List(nCnt)) = trim(THIS.Parent.edtAdd.Value )
=MesInfo("FIND",48,"提示")
THIS.Parent.lstDest.AddItem(THIS.Parent.lstSource.List(nCnt))
THIS.Parent.lstSource.RemoveItem(nCnt)
ENDIF
endfor

[wf2091139]

谢谢 ,可以了
(不好意思,刚才急事走开了一下)