100分一解：如何做一个能感知某表中两个字段的类似于TDBComboBox的组件...

Question

你可以用
TDBLookupCombobox.ListField := '中文姓名;英文姓名';
但是这样在下拉列表中可以显示两列
但不下拉时只显示一列
你可以用一个Edit配合显示。

Answer 1

你可以自己写吗？干吗非的找呢，这样的控件我有，我自己写的，我告诉你个思路吧，所有的数据感知控件要建立一个TDataLink的变量，他是专门用来数据感知的，你自己看看吧，很容易的

Answer 2

to  xiaojiuzhou(笑九州) (  ) :
用劲擂鼓！！！请你再谈谈你的思路

Answer 3

to： windindance(风舞轻扬)
我的这两个字段是在一个表中，能用 TDBLookupCombobox吗？

Answer 4

我用
TDBLookupCombobox.ListField := '中文姓名;英文姓名';
没有报错，但是在下拉列表中为什么也只显示一列？
datasource,datafield,listsource,listfield,keyfield均按要求设置。

Answer 5

您直接在formcreate事件里面写上:
table1.open;
table1.first;
while not table1.eof do
begin
 dbcombobx1.items.add(table1.fieldbyname('中文姓名')+':'+table1.fieldbyname('英文姓名'));
table1.next;
end;
这样符合您的要求吗? wish this may help

Answer 6

应该不会
你把TDBLookupCombobox拉大一点看看

Answer 7

object Form1: TForm1
  Left = 311
  Top = 107
  Width = 696
  Height = 480
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object DBLookupComboBox1: TDBLookupComboBox
    Left = 312
    Top = 48
    Width = 289
    Height = 21
    KeyField = 'NAME'
    ListField = 'AREA;NAME'
    ListSource = DataSource1
    TabOrder = 1
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'BCDEMOS'
    TableName = 'animals.dbf'
    Left = 112
    Top = 64
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 48
    Top = 48
  end
end

Answer 8

斑竹：
真是不好意思，确实是我拉的不够大，由于行业需要，你可知道我的这两个字段被
DBA设计为100个char，我不能改变宽度，这样要把dblookuocombobox拉的很大才行，但这样做谁能接受如此古怪的界面呢？我想做出象DELPHI IDE 等语言工具的CodeInside功能那样就好了，这样操作员一输入一个字母，下面就弹出提示框（里面想怎么写就好办了）这方法能实现我的目的，请大家多提宝贵意见，结贴一定给足分，谢谢！