VFP 愛用者社區

[湯昭儒]

請問各位大大
MCODE=CODE
SELE PAT
SEEK MCODE
THISFORM.GRID.REFRESH
請問如何讓找到的資料在GRID SHOW 時在劃面第一筆
目前都在中間
3Q

[syntech]

辦不到.

[mimisa00]

[lygcw9603]

GO RECNO()

[lygcw9603]

另外设置代码，可以达到你的要求。GRID行记录上移到第一条记录的位置。
参考代码地址：http://blog.csdn.net/lygcw9602/article/details/7208748

[spfrk]

可使用
if !bof()
skip -1 && 可以控制筆數
endif
keyb "{PGDN}" && 通知 GRID PAGE DOWN

[CCB2000]

可以用doscroll()實現，參攷：

PRIVATE m.q_rec0
m.q_rec0=RECN()

IF m.q_relativerow=m.q_grid_rows

IF TYPE("q_grid.f_pkgrid_lastsecond")#"N"
q_grid.addproperty("f_pkgrid_lastsecond")
q_grid.f_pkgrid_lastsecond=SECOND()-(_DBLCLICK)*1/3*50/100-1
ENDI

IF MOD(SECOND()-q_grid.f_pkgrid_lastsecond,24*60*60)<(_DBLCLICK)*1/3*50/100
SELE (m.q_sele)
CLEAR TYPEAHEAD
POP KEY
RETU
ENDI
q_grid.f_pkgrid_lastsecond=SECOND()

IF TYPE("q_grid.f_pkgrid_recbott")#"N"
q_grid.addproperty("f_pkgrid_recbott")
ENDI
PRIVATE m.q_rec
m.q_rec=RECN()
=pgobott()
q_grid.f_pkgrid_recbott=RECN()
DO pgo WITH m.q_rec

IF RECN()=q_grid.f_pkgrid_recbott
SELE (m.q_sele)
CLEAR TYPEAHEAD
POP KEY
RETU
ENDI

PRIVATE m.q_errnum,m.q_erroron
m.q_errnum=0
m.q_erroron=ON("ERROR")
ON ERROR m.q_errnum=perror()

PRIVATE m.q_grid_lockscreen
m.q_grid_lockscreen=q_form.lockscreen
q_form.lockscreen=.T.

DO pgo WITH q_grid.f_pkgrid_recbott
SKIP -(m.q_grid_rows-1)
LOCA NEXT m.q_grid_rows FOR RECN()=m.q_rec0
IF FOUND()
DO pgo WITH m.q_rec0
DO WHILE !EOF().AND.RECN()#q_grid.f_pkgrid_recbott
q_grid.doscroll(1)
SKIP +1
ENDDO
DO pgo WITH q_grid.f_pkgrid_recbott
q_grid.refresh
DO pgo WITH m.q_rec0
SKIP +1
q_grid.refresh
ELSE
DO pgo WITH m.q_rec0
SKIP +m.q_grid_rows-(CEILING(m.q_grid_rows/2)-1)
q_grid.refresh
DO pgo WITH m.q_rec0
SKIP +1
q_grid.refresh
ENDI

q_form.lockscreen=m.q_grid_lockscreen

ON ERROR &q_erroron

ELSE

PRIVATE m.q_errnum,m.q_erroron
m.q_errnum=0
m.q_erroron=ON("ERROR")
ON ERROR m.q_errnum=perror()

PRIVATE m.q_grid_lockscreen
m.q_grid_lockscreen=q_form.lockscreen
q_form.lockscreen=.T.

SKIP +1
q_grid.refresh

q_form.lockscreen=m.q_grid_lockscreen

ON ERROR &q_erroron

ENDI