VFP 愛用者社區

xjliaos · 註冊時間: 2007-11-20 文章: 87 來自: guan dong 第 1 樓

在form1里面,
我想在text里面輸入要查詢的資料時,grid同時顯示相關的資料.

我應該怎么做??

wuno2001 · 註冊時間: 2007-02-09 文章: 56 第 2 樓

在 TEXT1 的 LOSTFOCUS 事件

SELECT 欄位名,.... FROM 資料表 WHERE (符合TEXT1的條件) INTO CURSOR TEMP1

THISFORM.GRID1.RECORDSOURCETYPE=1 && 別名
THISFORM.GRID1.RECORDSOURCE="TEMP1"
THISFORM.GRID1.REFRESH
THISFORM.GRID1.SETFOCUS

xjliaos · 發表於: 星期三十一月 21, 2007 3:12 pm 文章主題:

不想在 TEXT1 用 LOSTFOCUS 事件,
因為在TEXT1 的資料還沒有輸入完整,還有什么好方法嗎?

wuno2001 · 註冊時間: 2007-02-09 文章: 56 第 4 樓

那就加一個COMMAND 鈕,放在CLICK 事件中

xjliaos · 發表於: 星期三十一月 21, 2007 3:30 pm 文章主題:

做到了,万份感謝兄弟!!!

xjliaos · 發表於: 星期三十一月 21, 2007 4:20 pm 文章主題:

結果可以做出來了,但是grid1格式變形了,應該怎么做???

wuno2001 · 註冊時間: 2007-02-09 文章: 56 第 7 樓

SELECT 欄位名,.... FROM 資料表 WHERE (符合TEXT1的條件) INTO CURSOR TEMP1

THISFORM.GRID1.RECORDSOURCETYPE=1 && 別名
THISFORM.GRID1.RECORDSOURCE="TEMP1"

with thisform.grid1
.columns[1].header1.caption='貨品編號'
.columns[1].header1.width=320
.columns[2].header1.caption='簡稱'
.columns[2].header1.width=160
~以此類推......
endwith

THISFORM.GRID1.REFRESH
THISFORM.GRID1.SETFOCUS

garfield · Site Admin 註冊時間: 2003-01-30 文章: 2160 第 8 樓

先 THISFORM.GRID1.RECORDSOURCE=NULL
再 SELECT 欄位名,.... FROM 資料表 WHERE (符合TEXT1的條件) INTO CURSOR TEMP1
然後 THISFORM.GRID1.RECORDSOURCE="temp1"
可以解決 grid 重設的困擾.

xjliaos · 發表於: 星期六十一月 24, 2007 9:41 am 文章主題:

試了,可以做到!!太感謝你了兄弟!