请问dbgrid的一个问题，100分送给主要解答建议人！

[pgz_007]

我想在dbgrid中实现抄表的功能，就是：

让某一个字段（某一列）可以编辑，其它的不能编辑。

在第一行那一字段输入完后自动跳转到下一行该列的这一字段。

[lincs3000]

在每列设置readonly为true，在keypress设置回车就换行啊！

[Kaykay]

关于只读的设置听楼上各位的；

关于回车换行，很简单：
procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
DBGrid1.DataSource.DataSet.Next;
end;

[pgz_007]

那么我怎样得到该字段所在的列号呢？也就是某字段是哪一列。

[Kaykay]

你把你的问题说详细点，看我能不能明确的告诉你如何解决

[AdoreTour]

双击DBGrid1，再加入所有字段，将除了要编辑的字段的ReadOnly设为False外,其它全为True
然后在DBGrid1KeyPress中加代码
procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
if not(ADOTable1.Eof) then
begin
ADOTable1.Next ;
DBGrid1.SelectedIndex:=x;//x为你的字段在 DBGrid1中的排位，从0开始
end;
end;
end;

[rockswj]

净态列的readonly属性
if key=#13 then
begin
if not(ADOQuery.Eof) then
begin
ADOQuery.Next ;
DBGrid1.SelectedField:=你的字段名
end;
end;

[viaboy]

1,你再找找属性应该能解决。


2 procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);

begin

if Key = #13 then

if ActiveControl = DBGrid1 then

begin

TDBGrid(ActiveControl).SelectedIndex := TDBGrid (ActiveControl).SelectedIndex + 1;

Key := #0;

end;

end;

[miky]

procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if DBGrid1.SelectedIndex = 可编辑的列 then
Include(DBGrid1.Options,dgEditing)
else
Exclude(DBGrid1.Options,dgEditing);
end;

[miky]

更正，上面的方法不太好，
DBGrid1.Columns[i].ReadOnly := true; //i 是不可编辑的列

[yrhkds]

楼上说得对。
你可以通过属性来设置
双击DBDGrid弹出的框中，添加的字段可以分别设置其只读属性，readonly ：＝true；

[pgz_007]

我是楼主，双击DBGrid1什么都没有，我是用ClientDataset设置的。
DBGrid1.Columns[i].ReadOnly := true;
这个i是列号，但是我数据表里面列很多，有20多列，那么我怎样得到需要编辑的字段所在的DBGrid表格中的列号呢？

[miky]

字段和你的DataSet有关，你的ClientDataset的Fields是怎么排列的，那么在DbGrid里也怎么排列，现在知道怎么找了吧？

[pgz_007]

有没有直接的getColumn方法呀。