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
时间: 2024-11-08 07:15:24