续上一问!

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 判断的都是假! 郁闷啊,有人能看下不?
...全文
77 点赞 收藏 4
写回复
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

社区成员

VFP,是Microsoft公司推出的数据库开发软件,用它来开发数据库,既简单又方便。
申请成为版主
社区公告
暂无公告