VFP 愛用者社區

[芝風]

是這樣的，我在code建立一個檔

clear all
_screen.visible=.f.
set escape off
set talk off
set near on
set exact on
set ansi off
set excl off
set safety off
SET MULTILOCKS on
set delete on
set century on
set date to DMY
OPEN DATABASE enterprise SHARED

SELECT 1
USE user SHARED ALIAS user
=CURSORSETPROP("BUFFERING",5,"user")
GO TOP
SELECT 2
USE user_data ORDER id SHARED ALIAS user_data
=CURSORSETPROP("BUFFERING",5,"user_data")
GO TOP
SELECT 3
USE stuff_code ORDER code_of_product SHARED ALIAS stuff_code
=CURSORSETPROP("BUFFERING",5,"stuff_code")
SELECT 4
USE stuff SHARED ALIAS stuff
=CURSORSETPROP("BUFFERING",5,"stuff")
GO TOP
SELECT 5
USE stuff_in_used SHARED ALIAS stuff_in_used
=CURSORSETPROP("BUFFERING",5,"stuff_in_used")
GO TOP



PUBLIC ARRAY ud[2]

_VFP.Visible = .T.
_SCREEN.WindowState = 2

DO FORM forms\login_form


可是當我執行的時候，他出現index tag not found，是因為我有些表沒建立index，所以他要做buffer的時候，沒有辦法做嗎？
因為我ignore這個問題 照樣正常執行
我不想要有這個問題，請問該如何解決？因為有些表是不能有index的，例如借貸表，可能劉三借了鉛筆，也借了原子筆，而李四也借了原子筆



另外一個問題，就是我設定當輸入資料的時候，會自動查詢這員工資料

例如員工名和員工id

我在interactivechange中設sql查詢，查到資料，會把資料寫在另一個textbox
例如輸入id，查到的話，會把名字寫在員工名的空格中

現在就是在例外機制的時候，出了問題，我在idtextbox.valid中寫到
IF thisform.pageframe1.page1.txtuUser.Value=""

thisform.pageframe1.page1.txtId.SetFocus

ENDIF

可是這個event不能執行setfocus…因為valid就是這個textbox要lostfocus之前

我不知道要如何處理比較好，請有經驗的大大建議一下，或是有其他的方案

謝謝！

[KKKLYNN]

您好
index觀念必須澄清
所有的表都必須有index,只是您必須有排列資料的觀念,至於如何排列僅限於資料函數的交互使用

有關找到資料,就把資料丟到textbox就好

sele xxxx
set order to xxx
seek xxx
if found()
thisform.xxtextbox.value=xxxx.xxx
else
thisform.xxtextbox.value="沒找到!"
endif

就用最簡單的方式處理就好了
動用一些額外的機制很費神的
因為此問題層級沒這麼嚴重,而您卻用了,很高等的判別
所以您會自己綁住自己
一般而言用最基礎的問題處理方式就可滿足很多很多問題
以後要改程式也容易許多,而且並非一直都是您在除錯或改善
想想哪天您已是管理階層,去看一些高等的語法,哪可以一個頭兩個大
雖然簡單一點,效率可能會差一點點,但日後一看就一目瞭然,就值回票價
以上您參考

[芝風]

喔…謝謝