客户的：cdsCustomer :TclientDataSet 的CommandText 为下的，中包含了DepartmentID 部门ID，这里不用关联
Department 表的DepartmentID字段
CommandText :='select top 10 CustomerID,Code,Customer,DepartmentID from Customer ';
客户显示的表格如下设置
Grideh1.columns[2].FieldName :='DepartmentID'; //部门名称
Grideh1.columns[2].Title.Caption :='所属部门';
Grideh1.columns[2].DropDownBox.autoFitColWidths :=False;
Grideh1.columns[2].DropDownBox.columns[0].FieldName :='Code';//部门编码
Grideh1.columns[2].DropDownBox.columns[0]。Title.Caption:='部门编码';
Grideh1.columns[2].DropDownBox.columns[1].FieldName :='Department';
Grideh1.columns[2].DropDownBox.columns[1]。Title.Caption:='部门名称';
//两列设置好列宽，把看自动适应列宽 去掉，设置一个固定的列宽 80 ,100
--以下重点设置
Grideh1.columns[2].lookupParams.KeyFieldNames :='DepartmentID';
Grideh1.columns[2].lookupDataset :=cdsDepartment;//TClientDataset 的 部门数据集
Grideh1.columns[2].lookupDisplayFieldName :='Department';
Grideh1.columns[2].lookupKeyFieldNames :='DepartmentID';//这个视情况而定，这个应该是查询条件吧暂没测试
cdsDepartment.CommandText :='select DepartmentID,Code,Department from Department ';
这样设置open 数据数据集即可显示 部门名称 ，这样做的意义在于，下拉可以显示多个字段，效果如果下图
