Надо просто подумать :-)
1) wm_keydown не нужен вообще
2) Вот мой скрипт в подобном случае:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
/*------------------------------------------------------------------------------
Object: dw_domain_select
Event : ue_Keyup (pbm_keyup)
Parameters: keycode key
unsignedlong keyflags
Returns: long
Copyright © 1999 BSR - Philip Salgannik
Date Created: 03/22/99
Description: Key Search: Scrolls to row based on key pressed by searching the column
Searches for following key presses (A-Z, 0-9)
--------------------------------------------------------------------------------
Modifications:
Date Author Comments
------------------------------------------------------------------------------*/
long ll_row
integer li_key, li_temp, li_pos
string ls_column, ls_temp
boolean lb_same
// Get ASCII Value of Key Pressed
li_key = Message.WordParm
// Make sure letter is A-Z, a-z, 0 - 9
IF ((li_key > 64 ) AND (li_key < 91 )) OR ((li_key > 47 ) AND (li_key < 58 )) THEN
// If user already hit this key
// move to next row with same letter
lb_same = (li_key = ii_last_key)
IF lb_same THEN
ll_row=this.GetRow() + 1
ELSE
ll_row= 1
END IF
ls_temp="ASC(UPPER(LEFT(list,1)))= " + String(li_key)
ll_row = this.Find(ls_temp, ll_row, this.RowCount())
IF ll_row > 0 THEN
this.ScrollToRow(ll_row)
this.SetRow(ll_row)
ELSE
IF lb_same THEN //cycle thru entries starting with the key user pressed
ll_row = this.Find(ls_temp, 1 , this.RowCount())
IF ll_row > 0 THEN
this.ScrollToRow(ll_row)
this.SetRow(ll_row)
END IF
END IF
END IF
ii_last_key = li_key
END IF
- название колонки в которой поиск
ii_last_key (instance variable) - ASCII Value последней нажатой клавиши (после ретрива datawindow он приравнивается к ASCII Value первой буквы колонки
list в первом ряду)
Это было с PFC, поэтому rowselection кода здесь нет...
