主页

续上一问!

wf2091139 2006-09-29 02:21:29

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 判断的都是假! 郁闷啊,有人能看下不?

...全文

4 条回复

切换为时间正序

当前发帖距今超过3年，不再开放新的回复

发表回复

wf2091139 2006-09-29

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

回复赞

wwwwb 2006-09-29

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

回复赞

十豆三 2006-09-29

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

回复赞

十豆三 2006-09-29

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

改成

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

回复赞

发动态

发帖子

VFP

创建于2007-09-28

加入

2457

社区成员

2.9w+

社区内容

VFP，是Microsoft公司推出的数据库开发软件，用它来开发数据库，既简单又方便。

申请成为版主

社区公告

暂无公告