DBLookupComboBox1,如何让它默认选择第一项？

Question

DBLookupComboBox1是要动态显示数据库中的一列数据，当把数据源打开后，要怎么让DBLookupComboBox1默认选择第一项？我有这样写代码，但一直报错，请问要怎么解决这个问题
with dblookupbox do
  Field.Value := ListSource.DataSet.FieldByName(KeyField).Value

Answer 1

>>我有这样写代码，但一直报错，请问要怎么解决这个问题
什么错误？贴出错误

Answer 2

出现了如下的溢出错误。
Project Print.exe raised exception class EAccessViolation with message 'Access violation at address 0049B057 in module print.exe'.Read of address 00000000'.Process stopped.Use step or Run to contiue.

Answer 3

with dblookupbox do
  Field.Value := ListSource.DataSet.FieldByName(KeyField).Value
检查你一下你的ListSource 的DataSource以及DataSet以及DBLookupBox的DataSource是否都赋了值。如果你的DBLookUpBox没有DataSource那么就不能使用这个办法来赋默认值。

Answer 4

我查看了ListSource 的DataSource以及DataSet都有赋值，但当我把DBLookupBox的DataSource都赋了值，程序执行的时候就回报错，说是：Circular datalinks are not allowed.请问这个问题要怎么处理呢？

Answer 5

>>ListSource 的DataSource以及DataSet都有赋值
是不是把DataSource和ListSource都赋成同一个DataSource了？