Question

(delphi问题)在dbgrid中移动光标,自动将光标所在的行赋给edit如何实现?

在dbgrid中移动光标,自动将光标所在的行赋给edit如何实现?

Answer 1

用DBEdit组件，，，，
和dbgrid控件绑定到同一个数据源上就可以了。

dbgrid上每一列的值都对应一个dbedit控件，将每一个dbedit的datasource，以及dbgrid每一列都绑定到同一个数据源上，就ok了

Answer 2

with TDBGrid(ActiveControl) do
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;