仓库管理软件版1楼: DBGRID窗口中显示的是3个表连接后的内容
我想在点窗口中的某条记录时，给上面的EDIT.TEXT赋值，显示相关的信息
要显示的信息需要用查询语句来获得。
怎么来解决？请各位高手指点，谢谢！

2楼: 你在DATASOUSE的CHANGE事件中写，
EDIT。TXT：=TABLE。FIELDBYNAME（‘例名’）。ASSTRING
这样的语句就可以了。 如速达财务软件

3楼: 楼上的不对,用我的.呼呼...散分算我一份,多少都没问题,差不多就行了.
Edit.Text:=TABLE.FIELDBYNAME(＇＇例名＇＇).ASSTRING;

4楼: procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
Edit1.Text := Column.Grid.SelectedField.AsString;
end;

5楼: 也可以在CellClick事件中写：
procedure Tw_WaterMeter.DBGridEh1CellClick(Column: TColumnEh);
begin
inherited;
if not ADODataSet1.Active then exit;
if DBGridEh1.DataSource.DataSet.RecordCount > 0 then
begin
EditStar := ca_Read;
cb_save.Enabled := False;
SetRead(Self,1,False,False);
sle_waterid.Text := ADODataSet1.FieldByName(＇＇WATERMETER_ID＇＇).AsString;

sle_watertype.ItemIndex := sle_watertype.Items.IndexOf(ADODataSet1.FieldByName(＇＇WATERMETERTYPE_NAME＇＇).AsString);
sle_waterkj.ItemIndex := sle_waterkj.Items.IndexOf(ADODataSet1.FieldByName(＇＇WATERMETERCALIBER_NAME＇＇).AsString);
sle_wateroutid.Text := ADODataSet1.FieldByName(＇＇WATERMETER_OUTFACTORY_NUM＇＇).AsString;
sle_sccs.ItemIndex := sle_sccs.Items.IndexOf(ADODataSet1.FieldByName(＇＇MANUFACTURER_NAME＇＇).AsString);
sle_zq.Text := ADODataSet1.FieldByName(＇＇WATERMETER_USEPERIODS＇＇).AsString;
sle_remark.Text := ADODataSet1.FieldByName(＇＇WATERMETER_REMARK＇＇).AsString;
if ADODataSet1.FieldByName(＇＇WATERMETER_BEGIN_DATE＇＇).AsString=＇＇＇＇ then
RzDateTimePicker1.Date:=now else
RzDateTimePicker1.Date:=ADODataSet1.FieldByName(＇＇WATERMETER_BEGIN_DATE＇＇).AsDateTime;
end;
end;

6楼: 楼上两个不懂规距...俗话说好事不过三,都三了你才跟上来...

仓库管理软件版7楼: 无头骑士和royal1442得答案都可以。

8楼: 在dbgrid的ONCellClick事件上编程

9楼: 谢谢 大家！问题解决了
我在 oncellclick事件里写的