VFP 愛用者社區

sunbird · 註冊時間: 2007-10-10 文章: 21 第 1 樓

表 table1 ( field1) (field1 設為主索引) 內有一刪除鍵值 abc
現通過表單仍需增加一記錄，field1 仍為 abc
代碼如下：

SET DELETED ON
SEEK ALLTRIM(thisform.text1.Value)
IF FOUND()=.t.
MESSAGEbox( "此記錄已存在")
else
INSERT INTO table1(field1) VALUES (thisform.text1.value)
ENDIF
鍵值為 abc記錄無法增加，出現以下提示信息為:
” uniqueness of index is violated ”
請教各位問題在哪？謝謝！

garfield · 發表於: 星期二十月 16, 2007 11:47 pm 文章主題:

Help 裡有寫:
Uniqueness of index "name" is violated (Error 1884)

The uniqueness of primary or candidate key is violated.

Fix the record values or revert them.

查help 只要3秒鐘,
等人回答到你滿意要等3天,
因為程式設計師總會想到比較深入的層面,
總是想help 裡已經有說明了, 一般會去查就知道問題再那裡,
會提問的人"可能"是會問比較深入技術的問題,
往往是答非所問,
就像我的回答也是我自己想你會問這個問題可能是index 的方面出了問題,
是不是答非所問, 我也不知道對你有沒有幫助.

試著:
只要你在建立索引檔時不要用 primary 或 Unique
採用一般索引就不會有這個問題.

sunbird · 註冊時間: 2007-10-10 文章: 21 第 3 樓

table1 在數據庫中為父表，此表與其它子表建立關聯

syntech · 發表於: 星期四十月 18, 2007 11:34 am 文章主題:

INDEX 命令可以在FOR 後面可以接條件,
不知道樓主知不知道.

如果你要這樣作,就必須加上排除條件.

sunbird · 註冊時間: 2007-10-10 文章: 21 第 5 樓

index for...
不知道，請指點
謝謝！

syntech · 發表於: 星期四十月 18, 2007 4:06 pm 文章主題:

FROM VFP HELP

------------------------
INDEX Command
Example See Also

Creates an index file to display and access table records in a logical order.

Syntax

INDEX ON eExpression TO IDXFileName | TAG TagName [OF CDXFileName]
[FOR lExpression]
[COMPACT]
[ASCENDING | DESCENDING]
[UNIQUE | CANDIDATE]
[ADDITIVE]

syntech · 發表於: 星期四十月 18, 2007 4:26 pm 文章主題:

台灣某軟體商,在他的 "超X巔峰 95" 是這樣設計傳票檔的

master : INDEX ON TRANS_NO TAG TAG_A OF TRANS_M.CDX FOR NOT DELETED() UNIQUE

detail : INDEX ON TRAN_NO+TRANS_SEQ TAG TAG_A FOR TRANS_D.CDX FOR NOT DELETED()

至於有什麼優缺,那就自己想辦法知道.

p.s. 當然不是真正的檔案名稱及欄位名稱.

sunbird · 註冊時間: 2007-10-10 文章: 21 第 8 樓

問題解決，多謝樓上朋友指點！