VFP 愛用者社區

[pilipala]

[LiuRambo]

你那兩個textbox的lostfocus裡面放同一個自訂程序
不管是動哪個都一律去搜尋

XX = ''
IF ! EMPTY(THISFORM.TEXTBOX1.VALUE)
XX = "ALLT(A1) = ALLT(THISFORM.TEXTBOX1.VALUE)"
ENDIF

IF ! EMPTY(XX)
XX = XX + " AND "
ENDIF

IF ! EMPTY(THISFORM.TEXTBOX2.VALUE)
XX = XX + "ALLT(A2) = ALLT(THISFORM.TEXTBOX2.VALUE)"
ENDIF

IF ! EMPTY(XX)
SELECT XXX
LOCATE FOR &XX
ENDIF

---------------------
Thisform.Grid1.RecordSource="Select jsbh, xm, xb, csrq, zc From jsqk, xb ;
Where jsqk.xbbh=xb.xbbh And Allt(xbmc)=Allt(Thisform.Combo1.Value) ;
Into Cursor Grid1"
上面這段最後面的INTO CURSOR GRID1就是我說的CURSOR
上面這行要正常執行 還得加上一行
THISFORM.GRID1.RECORDCOURCETYPE = 4
這跟上面的thisform.grid1.RecordSource ='table1' 是有點衝突的喔
因為那是別名，THISFORM.GRID1.RECORDCOURCETYPE = 1

先把VFP9的中文版HELP給裝上去吧
把一些基本的東西都給弄懂

vfp的cursor可是一大特點
我現在用的這套是完全沒有這麼方便的功能
結果要去每個客戶那邊放了一大堆垃圾tmp dbf檔

[fulltime]

TO:Liu前輩感謝您的指導，我用的查詢寫法為

xx=thisform.squ.Value
SELECT * FROM table1 WHERE &XX=alltrim(thisform.text.value) INTO CURSOR temptable

thisform.grid1.RecordSource='temptable'
thisform.grid1.RecordSourceType= 1 && (預設值) 別名。以指定方式處理記錄來源。
至於VFP9中文版HELP我已經裝了!
CURSOR在努力學習中^^

[LiuRambo]

[fulltime]

TO:Liu前輩..xx=thisform.squ.Value它是我在查詢中的combo box，選項就是table1的四個欄位。
然後&xx=alltrim(thisform.text.value)就是去做比較^^

[LiuRambo]

我知道你想要做的
我是說應該要寫成 SELECT * FROM xxx WHERE xxx.abc = THISFORM.COMBO.VALUE
怎麼 等號前後的邏輯判斷 都跟table1的欄位"無關" <==重點

[fulltime]

TO:Liu前輩..我有照您說的去改了一下程式!感謝指導^^