请问，DBgrid中下拉框里显示另一张表里面的字段，怎么做？高手帮帮忙！

Question

不用dbgrid.colunm[0].picklist里面加字段
而是用table1里面的lookupdateset什么的，怎么设置？？
我table1里面有字段'mc'和'xh'
table2 里面有字段'xh'
要table1里面的'xh'引用table2的'xh'
table1的xh字段是这样设置的FieldKind = fkLookup
FieldName = 'xh'
LookupDataSet = Table2
LookupKeyFields = 'xh'
LookupResultField = 'xh'
KeyFields = 'xh'
lookup=true可是这样不行，下拉框点击后出不来，怎么回事？？

Answer 1

在Delphi的DBGrid中插入其他可视组件 ---- Delphi提供了功能强大的 DBGrid组件，以方便进行数据库应用程序设计。但是如果我们仅仅利用DBGrid组件，每一个获得焦点（Grid）只是一个简单的文本编辑框，不方便用户输入数据。Delphi也提供了一些其他数据组件来方便用户输入，比如DBComboBox，DBCheckBox等组件，但这些组件却没有DBGrid功能强大。Delphi能不能象Visual Foxpro那样让DBGrid中获得焦点网格可以是其它可视数据组件以方便用户呢？其实我们可以通过在DBGrid中插入其他可视组件来实现这一点。 ---- Delphi对DBGrid处理的内部机制，就是在网格上浮动一个组件——DBEdit组件。你输入数据的网格其实是浮动DBEdit组件，其他未获得焦点地方不过是图像罢了。所以，在DBGrid中插入其他可视组件就是在网格上浮动一个可视组件。因此任何组件，包括从简单的DbCheckBox到复杂的对话框，都可以在DBGrid中插入。下面就是一个如何在DBGrid中插入DBComboBox组件的步骤，采用同样的办法可以插入其他组件。 
---- 1、 在Delphi 4.0中新建一个项目。 
---- 2、 分别拖动的Data Access组件板上DataSource、Table，Data Controls组件板上DBGrid，DBComboBox四个组件到Form1上。 
---- 3、 设置各个组件的属性如下： rcf1对象  属性 设定植 
Form1 Caption   '在DBGrid中插入SpinEdit组件示例' 
DataSource1 DataSet Table1 
Table1 DatabaseName DBDEMOS 
　 TableName 'teacher.DBF' 
　 Active True 
DBGrid1 DataSource DataSource1 
DBComboBox1 DataField SEX 
　 DataSource DataSource1 
　 Visible False 
　 Strings Items.       '男'| '女' ---- 注意：我在这里用了Teacher.dbf，那是反映教职工的性别，只能是“男”或者是“女”。 ---- 4、 DrawDataCell事件是绘制单元格，当获得焦点网格所对应的字段与组合框所对应的字段一致时，移动组合框到获得焦点的网格上，并且
使组合框可视，从而达到在DBGrid指定列上显示DBComboBox的功能。设置DBGrid1的OnDrawDataCell事件如下： 
procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;  Field: TField; State: TGridDrawState);
begin
    if (gdFocused in State) then
    begin
        if (Field.FieldName = DBComboBox1.DataField ) then
        begin
            DBComboBox1.Left := Rect.Left + DBGrid1.Left;
            DBComboBox1.Top := Rect.Top + DBGrid1.top;
            DBComboBox1.Width := Rect.Right - Rect.Left;
            DBComboBox1.Height := Rect.Bottom - Rect.Top;
            DBComboBox1.Visible := True;
     end;
  end;
end;---- 5、 DBGrid指定单元格未获得焦点时不显示DBComboBox，设置DBGrid1的OnColExit事件如下： 
procedure TForm1.DBGrid1ColExit(Sender: TObject);
begin
    If DBGrid1.SelectedField.FieldName  = DBComboBox1.DataField then
    begin
        DBComboBox1.Visible := false;
   end;
end;---- 6、 当DBGrid指定列获得焦点时DrawDataCell事件只是绘制单元格，并显示DBComboBox，但是DBComboBox并没有获得焦点，数据的输入还是在单元格上进行。在DBGrid1的KeyPress事件中调用SendMessage这个 Windows API函数将数据输入传输到DBComboBox上，从而达到在DBComboBox上进行数据输入。因此还要设置KeyPress事件如下： 
procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
    if (key < > chr(9)) then
    begin
        if (DBGrid1.SelectedField.FieldName   =DBComboBox1.DataField) then
        begin
             DBComboBox1.SetFocus;
             SendMessage(DBComboBox1.Handle, WM_Char, word(Key), 0);
        end;
    end;
end;---- 程序在中文Windows 98，Delphi 4.015 下调试通过。希望本文能使你可以更加方便快捷的开发数据库应用程序。 

Answer 2

可以直接用delphi6里面的lookupdataset什么的吗？
不想那么复杂
：）
帮帮忙
分不够再加，我分多的是：）

Answer 3

如果要简单的显示另一张表里面的字段话： 
    在 Table 中右键的 Fields Editor 中 添加一个新字段，设置一下，类型选择为 LookUp,在进行设置，看看就知道了。

Answer 4

我用已经有了的一个字段设置的fklookup,可是不行！
具体的参数我写在上面了，帮帮我，我马上给分！

Answer 5

这就奇怪了，你查找的KeyField是xh，ResultField也是xh，哪有什么意义呢？难道你table2中的xh允许重复出现，然后你希望下拉框中显示很多相同值得xh字段（譬如  1
        1
        1
        1
）
其实查找字段是用来关联主从表的关联字段的，你首先要理解查找字段得用法以及主从表的关系才能正确使用

Answer 6

我只是想table1 的xh的下拉框里面显示table2的xh里面的全部字段，然后选择！
应该怎么设置？？

Answer 7

你 TAble1 中的学号是不是原来没有，新加的。

Answer 8

好像应该设置dbgrid(table？？？）的option 属性，显示lookupdateset字段
然后使用

Answer 9

只要在dbgrid对应dataset控件中添加lookup field就行了

Answer 10

推荐用InfoPower套件 挺好用的 很容易实现

Answer 11

DBGrid也可很容易实现：
procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
  FldValue:String;
begin//在作这个之前你的DBGrid所连的数据集一定要打开
  for i:=0 to DBGrid1.Columns.Count-1 do
  //这个循环用来找你要的加PickList的DBGrid的Column
    if DBGrid1.Columns[i].Field
       =DBGrid1.DataSource.DataSet.FieldByName('xh') then
    begin
      DBGrid1.Columns[i].PickList.Clear;
      Table2.First;
      while not Table2.Eof do
      begin
        FldValue:=Table2.FieldByName('xh').AsString;
        if DBGrid1.Columns[i].PickList.IndexOf(FldValue)>-1 then
          DBGrid1.Columns[i].PickList.Add(FldValue);
        //把Table2中的xh字段值加到PickList中，并保证每个不同
        Table2.Next;
      end;
      break;
    end;
end;

Answer 12

以上的这段代码：
if DBGrid1.Columns[i].PickList.IndexOf(FldValue)>-1 then
  DBGrid1.Columns[i].PickList.Add(FldValue);
    //把Table2中的xh字段值加到PickList中，并保证每个不同
改为：
if DBGrid1.Columns[i].PickList.IndexOf(FldValue)<0 then
  DBGrid1.Columns[i].PickList.Add(FldValue);
  //把Table2中的xh字段值加到PickList中，并保证每个不同

Answer 13

在创建窗体事件中打开Table1和Table2，代码如下(假设你的窗体的名字为Form1)：
TForm1.FormCreateFormCreate(Sender: TObject);
begin
  with Table1 do
  if Active then
    Refresh
  esle
    Open;
  with Table2 do
  if Active then
    Refresh
  else
    Open;
end;
下拉框点击后出不来是因为你没有打开Table2，你也可以在设计时将Table1，Table2的Active属性设为True，这样保证没错，试试看

Answer 14

问题是用lookup设置好了关联的数据源时,
你一选择下拉列表时,那个关联的数据源的数据也跟着滚动, 好烦!!如果用上面的动态加Packlist设置可是可以,但要做写添加packlist代码而且,
要写ongettext,onsettext事件代码..太慢!delphi做数据库,怎一个烦字了得!

Answer 15

根据你的需求，应该用dbLookupcomBobox来作为下拉控件，设置dbLookupcomBobox的listField=table2.xh,dbLookupcomBobox.dataField=table1.xh,

Answer 16

DBGrid右键-Field-选取LookUp字段，设属性：ButtonStyle=cbsEllipsis.