VFP 愛用者社區

[480615]

在文本框中输入的内容添加到列表框中的一段代码， 判断文本框输入的内容列表框有无，若没有添加到列表框中。里面逻辑变量t，看不明白。请指教。
LPARAMETERS nKeyCode, nShIFtAltCtrl
IF nKeyCOde=13 &&如果用户按了回车键
*判断输入项在列表中是否存在
t=.F. FOR i=1 TO This.Parent.List1.ListCount
IF ALLTRIM(This.Value)==ALLTRIM(This.Parent.List1.List(i))
t=.T. &&表示已存在
EXIT
ENDIF
ENDFOR
IF !t This.Parent.List1.AddItem(This.Value)
ELSE
MESSAGEBOX("该项已存在！请重新输入！")
ENDIF
This.Value="" &&清空文本框
Thisform.Refresh()
ENDIF
里面有一个逻辑变量t,，既然判断已存了为什么还要再来一个if !t ,这里的!t等于什么？与上面的t=.T.有关还是与t=.F.有关？

[richshih]

t=.F. &&給予開始值
假如已存在 則 t=.T. ,否則 T 還是.F.
IF !t &&假如不存在則執行以下碼(T<>.T.)
This.Parent.List1.AddItem(This.Value)

[LiuRambo]

這是很平常的技巧
t可以看成是一個旗標值
t= .F. 在使用前先設定成.f.
然後開始查找
如果有符合條件的話 就t= .T.

!t是故意反值去看This.Parent.List1.AddItem(This.Value)是否新增成功

=================
IF !t This.Parent.List1.AddItem(This.Value)
ELSE
MESSAGEBOX("该项已存在！请重新输入！")
ENDIF
=================
以這段來說 換個笨一點的方法就變成：

IF !t &&表示沒找到
IF This.Parent.List1.AddItem(This.Value)
MESSAGEBOX("新增成功")
ELSE
MESSAGEBOX("该项已存在！请重新输入！")
ENDIF
ENDIF

[480615]

谢了，故意弄得如此绕口，直接来一个t=.f.不是挺简单。

[480615]

！t它与程序一开始t=.f.有关呼？

如有关的话　！t　就是t＜＞F.，变成t=.T.?

如果无关　哪t的初值是什么？　！t　中的　t　到底是什么值？

[levi]

楼上几位说得很明白，顶一下

[LiuRambo]