我有一张表,
如:表AB,字段a, b , c, d
表AB在DbGrib中显示,按回车键时,光标从A字段的值,跳到D字段的值上。
请各个大虾帮忙,急,急!
如:表AB,字段a, b , c, d
表AB在DbGrib中显示,按回车键时,光标从A字段的值,跳到D字段的值上。
请各个大虾帮忙,急,急!
解决方案 »
- dephi中如何将某个目录下的所有文件的文件名通过一个按钮导出到一个下拉框中?希望提供代码,谢谢!
- 关于QuotedStr在Filter里的应用~~
- 关于Insert语句和update语句的两个问题,!~~~~~~~~~
- ActiveSkin在delphi中怎么用?
- 你们是怎麽理解私有成员,保护成员,及公用成员的?
- 一个入门的问题
- Access不支持关连多表的Update吗?
- 程序如何是现带参数运行
- !!!!谁知道‘C#’怎么发音的,是不是音'si shop'!!!!//mysec
- 请问如何实现win9x开始菜单的文档键的功能?
- ActiveForm的初级问题
- 只知道标题栏其中的部分字符怎么找到该窗体句柄
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
if (activecontrol is tdbgrid ) then
begin
with tdbgrid(activecontrol) do
if selectedindex<(fieldcount-1) then
selectedindex:=selectedindex+1
else
begin
dbgrid1.DataSource.DataSet.Next ;
selectedindex:=0;
end;
end;
begin
if Key = #13 then begin
keybd_event(VK_TAB, 0, 0, 0);
keybd_event(VK_TAB, 0, 2, 0);
end;
end;procedure TForm1.DBGrid1ColEnter(Sender: TObject);
begin
if DBGrid1.SelectedIndex in [1, 2] then
DBGrid1.SelectedIndex := 3;
end;
if Selectedindex < (FieldCount - 1) then
begin
Selectedindex := Selectedindex + 1; // 移动到下一字段
while (Columns[Selectedindex].ReadOnly = true) do
begin
Selectedindex := Selectedindex + 1;
if Selectedindex = (FieldCount - 1) then
Selectedindex := 0;
end;
end
else Selectedindex := 0;