VFP 愛用者社區

Ruey · 發表於: 星期一七月 28, 2003 11:11 am 文章主題:

分兩部分作
1.Form1.text1.keyress event

DO FORM Form2
THIS.VALUE=Grid1.產品編號

2.Form2的Grid中篩選出產品編號開頭皆為GOxxx或是SIxxx,讓我去選擇
然後結束Form2

Ruey · 發表於: 星期一七月 28, 2003 12:45 pm 文章主題:

Grid1 --->資料表

Ruey · 發表於: 星期一七月 28, 2003 12:47 pm 文章主題:

更正
分兩部分作
1.Form1.text1.keyress event

DO FORM Form2
THIS.VALUE=mGrid1.產品編號

2.
Form2.Grid1.RrecordSource="mGrid1"

Form2的Grid中篩選出產品編號開頭皆為GOxxx或是SIxxx,讓我去選擇
然後結束Form2

Ruey · 發表於: 星期一七月 28, 2003 6:24 pm 文章主題:

select 产品编号 from cdbfname where atc(cvalue,产品编号)#0 into cursor temp1
--->
select 产品编号 from cdbfname where 产品编号 like ALLTRIM(cvalue)+"%"
into cursor temp1

Ruey · 發表於: 星期一七月 28, 2003 7:20 pm 文章主題:

這樣下
select 产品编号 from cdbfname where 产品编号==ALLTRIM(cvalue) into cursor temp1

garfield · 發表於: 星期一七月 28, 2003 10:50 pm 文章主題:

看起來在frm2的INIT 有問題
form2.init
lpara cvalue

thisform.addproperty('findvalue')
thisform.findvalue = cvalue

this.grid1.recordsourcetype = 4
this.grid1.recordsource = 'select 产品编号 from cdbfname where atc(thisform.findvalue,产品编号)#0 into cursor temp1"

Ruey · 發表於: 星期二七月 29, 2003 11:30 am 文章主題:

改成
cvalue=ALLTRIM(cvalue)+"%"

select 产品编号 from cdbfname where 产品编号 like cvalue
into cursor temp1

Ruey · 發表於: 星期二七月 29, 2003 1:13 pm 文章主題:

這行不用
thisform.text4.refresh