1 Konuyu açan radiokaos

  • radiokaos
  • radiokaos
  • Üye
  • Offline
  • Kayıt Tarihi: 23.06.2009
  • İleti: 54

Konu: Tuşa basarak arama/kısayol

Sevgili üstadlar,

Özellikle grid (belirlenen anahtar kolon için)
combobox, listbox gibi objelerde datalarında
tuşa bastıkça o kaydın üzerine gitmesini nasıl yaparız?

Örneğin bir grid de müşteri ismi kolununda 'K' harfi tuşlandığında;
K ile başlayan ilk kayıda gelmeli, ikinci kez K harfi tuşlanırsa sonraki
K ile başlayan record'a gitmeli, daha başka K ile başlayan yoksa ilk K ile başlayana dönmeli ???

Buna akıllı tuşlama mı demek lazım bilemiyorum. Ama kullanıcıların işini rahatlatacağı kesin.

Yardımlarınız için şimdiden teşekkür ederim.
Fox'la kalın....;)

2 Cevaplayan radiokaos

  • radiokaos
  • radiokaos
  • Üye
  • Offline
  • Kayıt Tarihi: 23.06.2009
  • İleti: 54

Re: Tuşa basarak arama/kısayol

Lparameters nKeyCode, nShiftAltCtrl
keytxt=Chr(nKeyCode)
Locate For musteri_ad=keytxt


böyle müşteri adlarına gidebiliyor...?
Fakat her zaman ilk bulduğuna gidiyor

3 Cevaplayan rahmi

  • rahmi
  • Uzman Üye
  • Offline
  • Yer: adana
  • Kayıt Tarihi: 09.10.2006
  • İleti: 84

Re: Tuşa basarak arama/kısayol

textbox ın interactivechange ine
SELECT urun
GO top
SET FILTER TO UPPER(ALLT(thisform.text1.value)) $ UPPER(ALLTRIM(urun.adi)) + UPPER(ALLTRIM(urun.kod))

rahmi's Website

4 Cevaplayan Aligocmen

  • Aligocmen
  • Aligocmen
  • Uzman Üye
  • Offline
  • Yer: Manisa
  • Kayıt Tarihi: 30.01.2007
  • İleti: 158

Re: Tuşa basarak arama/kısayol

combox ve listbox ta soldan itibaren aradığın harflere basarsan istediğin özellik zaten default olarak var.

Yazdığın kod gridview için galiba, orayada

Visual Fox Pro
Lparameters nKeyCode, nShiftAltCtrl 

keytxt=Chr(nKeyCode) 

if found()

   continue

else

   Locate For musteri_ad=keytxt 

endif

5 Cevaplayan radiokaos

  • radiokaos
  • radiokaos
  • Üye
  • Offline
  • Kayıt Tarihi: 23.06.2009
  • İleti: 54

Re: Tuşa basarak arama/kısayol

Sql server ile muhatap olunca
Foxun local komutlarını unuttuk..
Sorun çözüldü. Teşekkürler.