http://www.yourdelphi.com/topic_234544_e6b7.htm

试下在form的oncreate中加入 
dblookupcombobox1.keyvalue:=table1.fieldbyname(‘field‘).asstring; 
//table1为dblookupcombobox的数据源

没有测试。=

DBLookupComboBox1.KeyValue := DBLookupComboBox1.listsource.dataset[DBLookupComboBox1.keyfield] ;//=0

设置KeyValue  可以改变 显示的值。默认情况下 源数据集，应该在第一个记录

另外 在目标数据集的newrecord事件里，把目标字段（比如，部门编号）设置一个默认值，可以。

DBLookupComboBox 的初始值