А. С.PaulWist,
Мдякалка не болит? Не работает такой код, пробовал естественно.
у меня в гриде AllowCellSelection стоит в .F.
пока обошелся тупым кодом
FOR nn=1 TO 40
thisform.grid1.DoScroll(7)
ENDFOR
Мдя, а у меня переходит, что я делаю не так
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.
PUBLIC o
o = CREATEOBJECT('gridcommand')
o.show(1)
DEFINE CLASS gridcommand AS form
DoCreate = .T.
Caption = "Form1"
Name = "Form1"
ADD OBJECT grid1 AS grid WITH ;
Height = 169, ;
Left = 12, ;
Top = 12, ;
Width = 349, ;
Name = "Grid1"
AllowCellSelection = .F.
ADD OBJECT command1 AS commandbutton WITH ;
Top = 192, ;
Left = 12, ;
Height = 37, ;
Width = 349, ;
Caption = "Æìè", ;
Name = "Command1"
PROCEDURE init
CREATE CURSOR test (f1 int, f2 c(10), f3 c(30),f4 int,f5 int,f6 int,f7 int,f8 int,f9 int,f10 int)
INSERT INTO test (f1, f2, f3) VALUES (1, 'One', 'Three')
WITH thisform.grid1
.recordsource = 'test'
.ColumnCount = 10
.addproperty('nColumn', 1)
ENDWITH
ENDPROC
PROCEDURE command1.click
WITH thisform.grid1
IF .nColumn = 1
.Columns(.ColumnCount).SetFocus()
.nColumn = .ColumnCount
ELSE
.Columns(1).SetFocus()
.nColumn = 1
ENDIF
ENDWITH
ENDPROC
ENDDEFINE
