디비그리드에서 마지막 필드에 도달했을때 다음 칸으로 이동하려 하는데
실제로 안되는 군요...
소스는 다음과 같습니다.
begin
if Key = #13 then
begin
Key := #0;
with TDBGrid(Sender) do
if SelectedIndex < (FieldCount -1) then
SelectedIndex := SelectedIndex + 1
else
begin
if Not(QR_JJ10.Eof) then
QR_JJ10.Next ;
SelectedIndex := 0 ;
end;
end;
이렇게 하면 될거라고 생각했는데요....
안되는 군요...
아시는 분들의 조언을 부탁드립니다.
> 디비그리드에서 마지막 필드에 도달했을때 다음 칸으로 이동하려 하는데
>
> 실제로 안되는 군요...
>
> 소스는 다음과 같습니다.
>
> begin
> if Key = #13 then
> begin
> Key := #0;
> with TDBGrid(Sender) do
> if SelectedIndex < (FieldCount -1) then
> SelectedIndex := SelectedIndex + 1
> else
> begin
> if Not(QR_JJ10.Eof) then
>
> QR_JJ10.Next ;
> SelectedIndex := 0 ;
>
> end;
> end;
>
> 이렇게 하면 될거라고 생각했는데요....
>
> 안되는 군요...
>
> 아시는 분들의 조언을 부탁드립니다.
>
on Keypress
sendmessage(DBGrid1.Handle, WM_KEYDOWN, VK_TAB,0);
문제점 - 제가 해봤는데 그리드에서 수정이 안됩니다..