（[在线，给出正确代码就结贴]）让一个label显示一个dblabel的内容，dblabel变化，label内容也响应变化，如何写代码呢？

Question

请给出详细代码。

Answer 1

在AdoTable的
AfterScroll
RecordChangeComplete
任一事件中, 
寫
 label1.Caption := AdoTable1.FieldValues[xxx];

Answer 2

dbLabel 你绑定了dataSource 了吧？？ok,这样写：打开你的dataSource 指向的DataSet “可能是Query 或者是Table”，然后编写它的事件“AfterScroll”，比如：procedure TForm1.Query1AfterScroll(DataSet: TDataSet);
begin
  Label1.caption := Table1.Fieldbyname('xxx').ASString;
end;

Answer 3

在DB的AfterScroll中写：
Label1.Caption := db1.Field1(fieldName).AsString;

Answer 4

在dblabel绑定的数据集控件的AfterScroll，AfterRefresh等等事件中写