//纪录下移一条
procedure TForm1.Button2Click(Sender: TObject);
begin
table1.Next;
edit1.Text:=table1.fieldbyname('列名').AsString;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
table1.Next;
edit1.Text:=table1.fieldbyname('列名').AsString;
end;
procedure TForm1.Table1AfterOpen(DataSet: TDataSet);
begin
edit1.Text:=table1.fieldbyname('列名').AsString;
end;
会出错,不行啊
不过不太好,用stringgrid好些!
begin
stringgrid1.rows[i].add(' ');
............
end;
edit.text:=dataset.fieldbyname['fieldname'].asstring;