dbedit的click事件引发showmodal查询框，查询框中有dbgrid控件，如何将其中所选单元格的内容返回到dbedit中，如果各位有空，烦请关照(1

Y

yypeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-05

• #1

dbedit的click事件引发showmodal查询框，查询框中有dbgrid控件，如何将其中所选单元格的内容返回到dbedit中，如果各位有空，烦请关照(100分)<br />dbedit的click事件引发showmodal查询框，查询框中有dbgrid控件，如何将其中所选单元格的内容返回到dbedit中，如果各位有空，烦请关照

 

M

MichaelZhu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-05

• #2

dbedit.value:=dbgrid.datasource.dataset.fieldbyname(fieldname).asstring;

 

Y

yypeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-05

• #3

但是如果是grid呢,并且 edit与grid不在同一个form上如何将调出来form中选择的内容指定给
edit呢?

 

A

aizb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-05

• #4

DBEdit:
DBEdit1.Field.asstring:=Form2.DBGrid.DataSource.DataSet.FieldByName('FieldByName').asstring;
DBGrid:
DBGrid1.SelectField.asstring:=Form2.DBGrid.DataSource.DataSet.FieldByName('FieldByName').asstring;

 

Y

yypeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-05

• #5

askform.showmodal
form1.edit:=askform.dbgrid??后面怎么写?

 

P

PLA250

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-06

• #6

在From2的DBGrid1CellClick事件中加入
procedure TForm2.DBGrid1CellClick(Column: TColumn);
begin
Form1.Edit1.text:=Column.Field.AsString;
Form2.Close ;
end;

 

M

MichaelZhu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-06

• #7

PLA250的方法也不错。
Form1.Edit1.text:=Column.Field.AsString;

 

P

PFans

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-06

• #8

procedure TForm1.DBGrid1ColEnter(Sender: TObject);
begin
if DBGrid1.SelectedField<>nil then
Edit1.Text:=DBGrid1.SelectedField.AsString;
end;

procedure TForm1.DataSource2DataChange(Sender: TObject; Field: TField);
begin
if DataSource2.State=dsBrowse then
DBGrid1ColEnter(Sender);
end;

 

Y

yypeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-07

• #9

解决了谢谢大家的关照