上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
LiChingLin
註冊時間: 2006-04-19 文章: 59
第 1 樓
|
發表於: 星期六 四月 22, 2006 4:31 am 文章主題: 檢查 DBF 是否 有資料 |
|
|
類是 CLIPPER 5
FUNCTION EMPTYDBF()
IF BOF() AND EOF()
RETURN .T.
ELSE
RETURN .F.
ENDIF
ENDFUNC |
|
回頂端 |
|
 |
LiChingLin
註冊時間: 2006-04-19 文章: 59
第 2 樓
|
發表於: 星期四 十月 26, 2006 5:50 am 文章主題: |
|
|
如果有[已刪除]資料時 reccount() 傳回值並不正確 |
|
回頂端 |
|
 |
garfield Site Admin

註冊時間: 2003-01-30 文章: 2160
第 3 樓
|
發表於: 星期四 十月 26, 2006 1:52 pm 文章主題: |
|
|
在 IF BOF() AND EOF() 之前加一行
go top
當然也須要先set dele on 才行. _________________ 利用>>搜尋<<的功能會比問的還要快得到答案. |
|
回頂端 |
|
 |
KKKLYNN
註冊時間: 2004-09-17 文章: 357
第 4 樓
|
發表於: 星期一 十月 30, 2006 4:46 pm 文章主題: |
|
|
我用比較笨的辦法
go top
if empty(xxx)=.f.
else
endif
也就查看一下某一個欄位是否有資料,當然此欄位是當dbf有資料,一定會有資料
如代號等等
以上您參考 |
|
回頂端 |
|
 |
小桑•無痕

註冊時間: 2003-07-08 文章: 304 來自: Tainan, Taiwan
第 5 樓
|
發表於: 星期一 十月 30, 2006 5:01 pm 文章主題: |
|
|
garfield 寫到: | 在 IF BOF() AND EOF() 之前加一行
go top
當然也須要先set dele on 才行. |
我也是這麼使用.....
Set Delete ON
FUNCTION EMPTYDBF()
GOTO BOTTOM
RETURN(EOF())
ENDFUNC _________________ 用力 Try 一下...可以發現很多好玩的事.... |
|
回頂端 |
|
 |
syntech
註冊時間: 2003-05-16 文章: 4249 來自: Taipei,Taiwan
第 6 樓
|
發表於: 星期一 十月 30, 2006 5:43 pm 文章主題: |
|
|
FUNCTION EMPTYDBF()
Set Delete ON
IF BOF() AND EOF()
RETURN .T.
ELSE
RETURN .F.
ENDIF
前人遺跡 _________________ 如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
回頂端 |
|
 |
215001
註冊時間: 2003-06-11 文章: 393
第 7 樓
|
發表於: 星期二 十月 31, 2006 9:19 am 文章主題: |
|
|
FUNCTION EMPTYDBF()
Set Delete ON
GO TOP
IF EOF() && 不要加上BOF()判斷
RETURN .T.
ELSE
RETURN .F.
ENDIF
不要加上BOF()判斷,因為該資料表如果原本有資料,經過DELETE後,
BOF()只有在Go top 後,再Skip -1 時,才會傳回 .T. |
|
回頂端 |
|
 |
|