object ADOTbBugShop: TWideStringField //数据集中的查找(永久)字段 比如 部门名称 FieldKind = fkLookup FieldName = ‘Shop‘目标数据集-部门名称-就是查找字段
LookupDataSet = ADOTblShop //查找来源
LookupKeyFields = ‘ID‘// 查找来源
LookupResultField = ‘Shop‘//查找来源 - 部门名称-显示的
KeyFields = ‘ShopID‘//目标数据集-部门编号
Lookup = True
end
object
ADOTbBugShopID: TIntegerField
FieldName = ‘ShopID‘//目标数据集-部门编号
Visible = False
end
object DBLookupCombo1: TDBLookupCombo DataField = ‘ID‘ DataSource = dm.DataSource1 LookupSource = dm.DataSource5 LookupDisplay = ‘CustNo‘ //显示的字段 LookupField = ‘CustNo‘//实际的字段 和 DataField 对应
end
原文：http://www.cnblogs.com/CodeGear/p/4241677.html