//纪录下移一条
procedure TForm1.Button2Click(Sender: TObject);
begin
     table1.Next;
     edit1.Text:=table1.fieldbyname('列名').AsString;
end;

解决方案 »

  1.   

    //表打开时
    procedure TForm1.Table1AfterOpen(DataSet: TDataSet);
    begin
        edit1.Text:=table1.fieldbyname('列名').AsString;
    end;
      

  2.   

    将edit1.Text:=table1.fieldbyname('列名').AsString加入table的afterscroll事件 
      

  3.   

    To  lyq(阿飞) :
    会出错,不行啊 
      

  4.   

    edit1.text:=query1.fieldvalues['youfield'].asstring
      

  5.   

    我要的是每次单击Dbgrid中的某条记录,edit中显示相应的字段值
      

  6.   

    哪你判断第几行,在相应的移动记录指针不就成了!:)
    不过不太好,用stringgrid好些!
      

  7.   

    for i=1 to query1.RecordCount
    begin
    stringgrid1.rows[i].add('   ');
    ............
    end;
      

  8.   

    在窗体的onCreate事件和navigate控件的onclick事件中:
    edit.text:=dataset.fieldbyname['fieldname'].asstring;