数据库中三个表
tb_School:F_ID char 10,F_Name char 50
tb_Class:F_id char 10,F_name char 50
tb_Student:F_id char 10,F_name char 10,F_Classid char 10,F_studentid char 10;然后在Delphi中用ADO连接到数据库
ADOdataset1的CommandText:='select * from tb_School';
AdoDataset2的CommandText:='select * from tb_Class';
AdoDataSet3的CommandText:='select * from tb_Student';在AdoDataSet3中添加两个LookUP字段,ClassName,用Tb_Student中的ClassID关联Tb_Class中的ID
SchoolName,用Tb_Student中的SchoolID关联到TB_School中的ID在AdoDataset3中的NewRecord事件加入以下的代码
   dataset.FieldByName('classid').value :=
    adodataset2.fieldbyname('id').Value;
  dataset.FieldByName('schoolid').value :=
    adodataset1.fieldbyname('id').Value;在新增记录的时候就会弹出"Project Project.exe raised class EoleException with'发生未知错误‘ process stoped use step or run to continue"盼大家援手相助!