VFP 愛用者社區

wsk · 註冊時間: 2004-01-14 文章: 51 第 1 樓

請問各位前輩, 怎樣可以測試一個欄位是否存在, 如不存在, 可以新增.
煩請各位指教. 謝謝

211482 · 註冊時間: 2003-07-15 文章: 53 第 2 樓

IF TYPE("cod")#"C"
ALTER TABLE product ADD cod C(2)
ENDIF

LiuRambo · 註冊時間: 2007-11-27 文章: 481 第 3 樓

1樓的答案有風險吧
=======================
MESSAGEBOX(CHKCOL("cod"))

FUNCTION CHKCOL
PARAMETER _c
nF = AFIELDS(aFd)
ef = .F.
FOR xIisef = 1 TO nF
IF UPPER(ALLT(aFd(xIisef,1)))==UPPER(ALLT(_c))
ef = .T.
ENDIF
NEXT
RETURN ef

ckp6250 · 註冊時間: 2004-07-30 文章: 1645 第 4 樓

field()

zlabsoft · 註冊時間: 2003-10-18 文章: 22 第 5 樓

LPARAMETERS lcFieldName, lcAlias
LOCAL llReturn, llCompatible, lnPosn
*
* Field Name Checker Ver 1.30
*
*** Input :
*
* lcFieldName - Name of the field to be check (string)
* lcAlias - Alias of the table (string)
*
*** Output : .T. - It is a field name (logic)
*
* Description : This functionis for check for a field name exist in default / specify
* table
*
* 13/07/2007 1.30 - Add support for fieldname like xxx.yyy or xxx->yyy
* 19/12/2001 1.20 - Code Optimized and check if alias specified already open
* 13/01/2001 1.10 - Code Optimized
* dd/mm/yyyy 1.00 - Prototype
*
* By: Tommy Tsang
*

DO CASE
CASE PCOUNT() > 1
lcAlias = IIF(VARTYPE(lcAlias) = 'C', lcAlias, ALIAS())
CASE '.'$lcFieldName
lnPosn = AT('.', lcFieldName)
lcAlias = LEFT(lcFieldName, lnPosn - 1)
lcFieldName = SUBSTR(lcFieldName, lnPosn + 1)
CASE '->'$lcFieldName
lnPosn = AT('->', lcFieldName)
lcAlias = LEFT(lcFieldName, lnPosn - 1)
lcFieldName = SUBSTR(lcFieldName, lnPosn + 2)
OTHERWISE
lcAlias = ALIAS()
ENDCASE

IF USED(lcAlias)
llCompatible = (SET('COMPATIBLE') = 'ON')
SET COMPATIBLE OFF
llReturn = (FSIZE(lcFieldName, lcAlias) > 0)
IF llCompatible
SET COMPATIBLE ON
ENDIF
ELSE
llReturn = .F.
ENDIF

RETURN llReturn

yang1032 · 註冊時間: 2004-06-19 文章: 58 第 6 樓

use &filename
flag =.t.
for k = 1 to fcount()
if upper(field(k)) ="DF58"
flag =.f.
exit
endif
next
use

yang1032 · 註冊時間: 2004-06-19 文章: 58 第 7 樓

use &filename
flag =.t.
for k = 1 to fcount()
if upper(field(k)) ="DF58"
flag =.f.
exit
endif
next
use

foxy · 發表於: 星期二三月 08, 2011 1:05 am 文章主題:

IF TYPE("product.cod")="U"
ALTER TABLE product ADD cod C(2)
ENDIF

ezpos · 註冊時間: 2011-04-20 文章: 323 第 9 樓

syntech · 發表於: 星期五十一月 06, 2015 4:04 pm 文章主題:

我自己通常用二樓的變種,
afield() +ascan()
臨時用八樓的.

"通常",因為我的form都是用afield 自動"喬"的,
免去人工犯錯可能.

---
我們家的東西沒有臨時找不到欄位需要新增的情況,
這個在事前規劃就應該考慮進去.
(^.^|||)

如果遇到沒有欄位,那就是table版本不正確.
更新table 就好.